Author: bernhard Date: Tue Jun 5 13:14:19 2007 New Revision: 18828 Modified: trunk/languages/lisp/t/arithmetics.t
Log: [languages/lisp] Tests for the '=' function. Modified: trunk/languages/lisp/t/arithmetics.t ============================================================================== --- trunk/languages/lisp/t/arithmetics.t (original) +++ trunk/languages/lisp/t/arithmetics.t Tue Jun 5 13:14:19 2007 @@ -18,13 +18,31 @@ use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../../../lib"; # core Perl modules -use Test::More tests => 1; +use Test::More tests => 4; # Parrot modules use Parrot::Test; language_output_is( 'Lisp', <<'END_CODE', <<'END_OUT', 'integer 1' ); -(print ( + 1 3 ) ) +( print ( + 1 3 ) ) END_CODE 4 END_OUT + +language_output_is( 'Lisp', <<'END_CODE', <<'END_OUT', '1 equals 1' ); +( print ( = 1 1 ) ) +END_CODE +T +END_OUT + +language_output_is( 'Lisp', <<'END_CODE', <<'END_OUT', '1 does not equal 2' ); +( print ( = 1 2 ) ) +END_CODE +NIL +END_OUT + +language_output_is( 'Lisp', <<'END_CODE', <<'END_OUT', '2 equals 1+1' ); +( print ( = 2 ( + 1 1 ) ) ) +END_CODE +NIL +END_OUT
