C: <computer> computer
{ "TUPLE: computer cpu ram ;" } [
- [ \ computer see ] with-string-writer string-lines second
+ [ \ computer see ] with-string-writer lines second
] unit-test
TUPLE: laptop < computer battery ;
test-laptop-slot-values
{ "TUPLE: laptop < computer battery ;" } [
- [ \ laptop see ] with-string-writer string-lines second
+ [ \ laptop see ] with-string-writer lines second
] unit-test
{ { tuple computer laptop } } [ laptop superclasses-of ] unit-test
{ f } [ \ + server? ] unit-test
{ "TUPLE: server < computer rackmount ;" } [
- [ \ server see ] with-string-writer string-lines second
+ [ \ server see ] with-string-writer lines second
] unit-test
[