perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r31919 - trunk/languages/lua/t

Subject: [svn:parrot] r31919 - trunk/languages/lua/t
From:
Date: Mon, 13 Oct 2008 00:03:53 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: fperrad
Date: Mon Oct 13 00:03:52 2008
New Revision: 31919

Modified:
   trunk/languages/lua/t/test_lex.t

Log:
[Lua]
- add conditional skip

Modified: trunk/languages/lua/t/test_lex.t
==============================================================================
--- trunk/languages/lua/t/test_lex.t    (original)
+++ trunk/languages/lua/t/test_lex.t    Mon Oct 13 00:03:52 2008
@@ -25,8 +25,17 @@
 use FindBin;
 use lib "$FindBin::Bin";
 
-use Parrot::Test tests => 23;
+use Parrot::Test;
 use Test::More;
+use Parrot::Test::Lua;
+
+my $test_prog = Parrot::Test::Lua::get_test_prog();
+if ( $test_prog eq 'lua' || $test_prog eq 'luac.pl' ) {
+    plan skip_all => "parrot only";
+}
+else {
+    plan tests => 23;
+}
 
 language_output_is( 'Lua_lex', <<'CODE', <<'OUT', 'hello' );
 print("hello")

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r31919 - trunk/languages/lua/t, fperrad <=