steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding some unit tests

db4
Slava Pestov 2008-03-28 20:28:17 -05:00
parent 14d97f3b01
commit a0975b5c46
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
core/tuples/tuples-tests.factor
View File

@ -316,6 +316,30 @@ C: <server> server
"IN: tuples.tests TUPLE: bad-superclass < word ;" eval "IN: tuples.tests TUPLE: bad-superclass < word ;" eval
] must-fail ] must-fail
! Reshaping with inheritance
TUPLE: electronic-device ;
[ ] [ "IN: tuples.tests TUPLE: computer < electronic-device ;" eval ] unit-test
[ f ] [ electronic-device laptop class< ] unit-test
[ t ] [ server electronic-device class< ] unit-test
[ t ] [ laptop server class-or electronic-device class< ] unit-test
[ t ] [ "laptop" get electronic-device? ] unit-test
[ t ] [ "laptop" get computer? ] unit-test
[ t ] [ "laptop" get laptop? ] unit-test
[ f ] [ "laptop" get server? ] unit-test
[ t ] [ "server" get electronic-device? ] unit-test
[ t ] [ "server" get computer? ] unit-test
[ f ] [ "server" get laptop? ] unit-test
[ t ] [ "server" get server? ] unit-test
[ ] [ "IN: tuples.tests TUPLE: computer ;" eval ] unit-test
[ f ] [ "laptop" get electronic-device? ] unit-test
[ t ] [ "laptop" get computer? ] unit-test
! Hardcore unit tests ! Hardcore unit tests
USE: threads USE: threads