Move the scheme based tests into t/scheme

bschmalhofer · Feb 8, 2009 · 6162ceb · 6162ceb
1 parent 6b41b34
commit 6162ceb
Show file tree

Hide file tree

Showing 19 changed files with 16 additions and 12 deletions.
diff --git a/driver_nqp.pir b/driver_nqp.pir
@@ -1,10 +1,7 @@
-# The dynamics PMCs used by Eclectus are loaded
-.loadlib 'eclectus_group'
-
 # for devel
 .include 'library/dumper.pir'
 
-.namespace []
+.namespace ['Eclectus']
 
 .sub '__onload' :init
     load_bytecode 'PGE.pbc'
@@ -14,6 +11,13 @@
     load_bytecode 'PCT.pbc'
 
     load_bytecode 'languages/eclectus/src/builtins/all.pbc'
+
+    # The dynamics PMCs used by Eclectus are loaded
+    loadlib $P1, 'pair'
+    _dumper( 'p1',  $P1 )
+    loadlib $P1, 'eclectus_group'
+    _dumper( 'p1',  $P1 )
+
 .end
 
 
@@ -58,7 +62,7 @@
 
 
 .sub '__initconst' :init
-    $P0 = new 'EclectusBoolean'
+    $P0 = new [ 'EclectusBoolean' ]
     $P0 = 1
     set_root_global ['_eclectus'], '#t', $P0
     $P0 = new 'EclectusBoolean'

diff --git a/t/harness b/t/harness
@@ -33,7 +33,7 @@ use Parrot::Test::Harness
               ? [ 'csi', '-R', 'alexpander', '-i', '-k', 'none', '-I', 'riaxpander',
 		  '-e', '(load "chicken/prelude.scm")', '-s' ]
               : [ 'gosh', '-fcase-fold', '-I', '.',  '-I', 'riaxpander', '-l', 'gauche/prelude.scm' ],
-    files    => [ 't/*.t' ];
+    files    => [ 't/scheme/*.t' ];
 
 =head1 SEE ALSO
 

diff --git a/t/pmc/boolean.t b/t/pmc/boolean.t
@@ -12,11 +12,11 @@ t/pmc/boolean.t - Boolean PMC
 
 =head1 DESCRIPTION
 
-Tests C<PhpBoolean> PMC.
+Tests C<EclectusBoolean> PMC.
 
 =cut
 
-.loadlib "php_group"
+.loadlib "eclectus_group"
 
 .sub 'main' :main
     .include "include/test_more.pir"
@@ -28,14 +28,14 @@ Tests C<PhpBoolean> PMC.
 .sub truth_tests
     .local pmc true, false
 
-    true = new 'PhpBoolean'
+    true = new 'EclectusBoolean'
     true = 1
 
-    false = new 'PhpBoolean'
+    false = new 'EclectusBoolean'
     false = 0
 
-    is(true, 1, "true PhpBoolean is 1")
-    is(false, "", "false PhpBoolean is empty")
+    is(true, 1, "true EclectusBoolean is 1")
+    is(false, "", "false EclectusBoolean is empty")
 .end
 
 # Local Variables:

diff --git a/t/begin.t → t/scheme/begin.t b/t/begin.t → t/scheme/begin.t
diff --git a/t/binary_primitives.t → t/scheme/binary_primitives.t b/t/binary_primitives.t → t/scheme/binary_primitives.t
diff --git a/t/booleans.t → t/scheme/booleans.t b/t/booleans.t → t/scheme/booleans.t
diff --git a/t/characters.t → t/scheme/characters.t b/t/characters.t → t/scheme/characters.t
diff --git a/t/conditionals.t → t/scheme/conditionals.t b/t/conditionals.t → t/scheme/conditionals.t
diff --git a/t/empty_list.t → t/scheme/empty_list.t b/t/empty_list.t → t/scheme/empty_list.t
diff --git a/t/equality.t → t/scheme/equality.t b/t/equality.t → t/scheme/equality.t
diff --git a/t/integers.t → t/scheme/integers.t b/t/integers.t → t/scheme/integers.t
diff --git a/t/io.t → t/scheme/io.t b/t/io.t → t/scheme/io.t
diff --git a/t/learning_scheme.t → t/scheme/learning_scheme.t b/t/learning_scheme.t → t/scheme/learning_scheme.t
diff --git a/t/local_variables.t → t/scheme/local_variables.t b/t/local_variables.t → t/scheme/local_variables.t
diff --git a/t/pair.t → t/scheme/pair.t b/t/pair.t → t/scheme/pair.t
diff --git a/t/procedures.t → t/scheme/procedures.t b/t/procedures.t → t/scheme/procedures.t
diff --git a/t/strings.t → t/scheme/strings.t b/t/strings.t → t/scheme/strings.t
diff --git a/t/unary_primitives.t → t/scheme/unary_primitives.t b/t/unary_primitives.t → t/scheme/unary_primitives.t
diff --git a/t/vectors.t → t/scheme/vectors.t b/t/vectors.t → t/scheme/vectors.t