develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34329 - in trunk/languages/lua: . config/makefiles t

From:
fperrad
Date:
December 24, 2008 03:33
Subject:
[svn:parrot] r34329 - in trunk/languages/lua: . config/makefiles t
Message ID:
20081224113259.7C2FDCBA12@x12.develooper.com
Author: fperrad
Date: Wed Dec 24 03:32:58 2008
New Revision: 34329

Modified:
   trunk/languages/lua/   (props changed)
   trunk/languages/lua/config/makefiles/root.in
   trunk/languages/lua/t/harness

Log:
[Lua] smolder
- add a target 'smoke'
- improve harness

Modified: trunk/languages/lua/config/makefiles/root.in
==============================================================================
--- trunk/languages/lua/config/makefiles/root.in	(original)
+++ trunk/languages/lua/config/makefiles/root.in	Wed Dec 24 03:32:58 2008
@@ -274,6 +274,7 @@
 	@echo "                     This is the default."
 	@echo "Testing:"
 	@echo "  test:              Run the test suite."
+	@echo "  smoke:             Run the test suite and send report to the smolder server"
 	@echo "  testclean:         Clean up test results."
 	@echo ""
 	@echo "Cleaning:"
@@ -288,6 +289,9 @@
 test: all
 	cd .. && $(PERL) t/harness --languages=lua
 
+# run the test suite, create a TAP archive and send it off to smolder
+smoke : all
+	-$(PERL) t/harness --archive --send-to-smolder
 
 TEST_CLEANERS = \
  "t/pmc/*.pir" \

Modified: trunk/languages/lua/t/harness
==============================================================================
--- trunk/languages/lua/t/harness	(original)
+++ trunk/languages/lua/t/harness	Wed Dec 24 03:32:58 2008
@@ -34,6 +34,10 @@
 If I'm called with "--use-lua-pbc", I run with C<lua.pbc> (the Lua interpreter
 written in PIR).
 
+If I'm called with "--use-luap-pir", I run with C<luap.pir>.
+
+If I'm called with "--use-luac2pir-pir", I run with C<luac2pir.pir>.
+
 Otherwise I run the tests that were passed on the command line.
 
 =cut
@@ -55,7 +59,7 @@
 my $language = 'lua';
 
 my ( $files_flag, $master_flag, $send_to_smolder_flag, $archive_flag, $verbose_flag );
-my ( $use_orig_lua, $use_luac_pl, $use_lua_pbc );
+my ( $use_orig_lua, $use_luac_pl, $use_lua_pbc, $use_luap_pir, $use_luac2pir_pir );
 GetOptions(
     'files' => \$files_flag,
     'master' => \$master_flag,          # unused, but passed by languages/t/harness
@@ -66,6 +70,8 @@
     'use-lua' => \$use_orig_lua,
     'use-luac-pl' => \$use_luac_pl,
     'use-lua-pbc' => \$use_lua_pbc,
+    'use-luap-pir' => \$use_luap_pir,
+    'use-luac2pir-pir' => \$use_luac2pir_pir,
 );
 
 my $verbosity = $verbose_flag ? 1 : $ENV{HARNESS_VERBOSE};
@@ -115,6 +121,12 @@
     elsif ($use_lua_pbc) {
         $ENV{PARROT_LUA_TEST_PROG} = 'lua.pbc';
     }
+    elsif ($use_luap_pir) {
+        $ENV{PARROT_LUA_TEST_PROG} = 'luap.pir';
+    }
+    elsif ($use_luac2pir_pir) {
+        $ENV{PARROT_LUA_TEST_PROG} = 'luac2pir.pir';
+    }
 
     my $exec_sub
         = sub {
@@ -141,10 +153,12 @@
 
         if ( $send_to_smolder_flag ) {
             $env_data{report_file} = $report_file;
-            $env_data{project_id}  = 10;
+            $env_data{project_id}  = 999;
+            $env_data{test_prog}   = $ENV{PARROT_LUA_TEST_PROG};
             Parrot::Harness::Smoke::send_archive_to_smolder(%env_data);
         }
-    } else {
+    }
+    else {
         my $harness = TAP::Harness->new(
             {
                 exec       => $exec_sub,



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About