2009-03-31 22:23:09 -04:00
|
|
|
IN: smalltalk.eval.tests
|
2009-04-01 03:47:51 -04:00
|
|
|
USING: smalltalk.eval tools.test io.streams.string kernel ;
|
2009-03-31 22:23:09 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 3 } [ "1+2" eval-smalltalk ] unit-test
|
|
|
|
|
{ "HAI" } [ "(1<10) ifTrue:['HAI'] ifFalse:['BAI']" eval-smalltalk ] unit-test
|
|
|
|
|
{ 7 } [ "1+2+3;+4" eval-smalltalk ] unit-test
|
|
|
|
|
{ 6 "5\n6\n" } [ [ "[:x|x print] value: 5; value: 6" eval-smalltalk ] with-string-writer ] unit-test
|
|
|
|
|
{ 5 } [ "|x| x:=5. x" eval-smalltalk ] unit-test
|
|
|
|
|
{ 11 } [ "[:i| |x| x:=5. i+x] value: 6" eval-smalltalk ] unit-test
|
|
|
|
|
{ t } [ "class Blah [method foo [5]]. Blah new foo" eval-smalltalk tuple? ] unit-test
|
|
|
|
|
{ 196418 } [ "vocab:smalltalk/eval/fib.st" eval-smalltalk-file ] unit-test
|
