Author: bernhard
Date: Mon Jun 18 12:56:43 2007
New Revision: 19090
Added:
trunk/languages/lisp/t/system.t
Modified:
trunk/MANIFEST
trunk/MANIFEST.SKIP
Log:
[languages/lisp]
Start with t/system.t for stuff in SYSTEM.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Mon Jun 18 12:56:43 2007
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Mon Jun 18 19:31:06 2007 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Mon Jun 18 19:55:28 2007 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -1416,6 +1416,7 @@
languages/lisp/t/cl.t [lisp]
languages/lisp/t/harness [lisp]
languages/lisp/t/hello.t [lisp]
+languages/lisp/t/system.t [lisp]
languages/lisp/types.pir [lisp]
languages/lisp/validate.pir [lisp]
languages/lua/Lua/build.pm [lua]
Modified: trunk/MANIFEST.SKIP
==============================================================================
--- trunk/MANIFEST.SKIP (original)
+++ trunk/MANIFEST.SKIP Mon Jun 18 12:56:43 2007
@@ -1,6 +1,6 @@
# ex: set ro:
# $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Mon Jun 18 19:31:06 2007 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Mon Jun 18 19:55:28 2007 UT
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
Added: trunk/languages/lisp/t/system.t
==============================================================================
--- (empty file)
+++ trunk/languages/lisp/t/system.t Mon Jun 18 12:56:43 2007
@@ -0,0 +1,45 @@
+# $Id$
+
+=head1 NAME
+
+lisp/t/system.t - tests function in SYSTEM
+
+=head1 DESCRIPTION
+
+Functions defined in system.pir.
+
+=cut
+
+# pragmata
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../../../lib";
+
+# core Perl modules
+use Test::More;
+
+# Parrot modules
+use Parrot::Test;
+
+my @test_cases = (
+ [ q{ (setq english_to_german (sys:%make-hash-table))
+ (setf (sys:%get-hash "House" table) "Haus")
+ ( print (sys:%get-hash "House" table))
+ },
+ q{Haus},
+ q{hash-table},
+ todo => 'setf not here yet'
+ ],
+);
+
+Test::More::plan( tests => scalar @test_cases );
+
+foreach ( @test_cases )
+{
+ my ( $code, $out, $desc, @other ) = @{ $_ };
+
+ $desc ||= substr( $code, 0, 32 );
+ language_output_is( 'Lisp', $code, $out . "\n", $desc, @other );
+}
