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

[svn:parrot] r34252 - in trunk/languages/WMLScript/t: . pmc

From:
fperrad
Date:
December 22, 2008 12:57
Subject:
[svn:parrot] r34252 - in trunk/languages/WMLScript/t: . pmc
Message ID:
20081222205737.8097ACBA12@x12.develooper.com
Author: fperrad
Date: Mon Dec 22 12:57:35 2008
New Revision: 34252

Modified:
   trunk/languages/WMLScript/t/boolean.t
   trunk/languages/WMLScript/t/examples.t
   trunk/languages/WMLScript/t/expr.t
   trunk/languages/WMLScript/t/float.t
   trunk/languages/WMLScript/t/functions.t
   trunk/languages/WMLScript/t/integer.t
   trunk/languages/WMLScript/t/invalid.t
   trunk/languages/WMLScript/t/lang.t
   trunk/languages/WMLScript/t/libfloat.t
   trunk/languages/WMLScript/t/libstring.t
   trunk/languages/WMLScript/t/literals.t
   trunk/languages/WMLScript/t/logical.t
   trunk/languages/WMLScript/t/pmc/boolean.t
   trunk/languages/WMLScript/t/pmc/float.t
   trunk/languages/WMLScript/t/pmc/integer.t
   trunk/languages/WMLScript/t/pmc/invalid.t
   trunk/languages/WMLScript/t/pmc/string.t
   trunk/languages/WMLScript/t/pragmas.t
   trunk/languages/WMLScript/t/runtime.t
   trunk/languages/WMLScript/t/statements.t
   trunk/languages/WMLScript/t/string.t

Log:
[WMLScript] Test
- now, work with a correct pragma 'use lib'

Modified: trunk/languages/WMLScript/t/boolean.t
==============================================================================
--- trunk/languages/WMLScript/t/boolean.t	(original)
+++ trunk/languages/WMLScript/t/boolean.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/boolean.t
+    % perl t/boolean.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 40;
 use Test::More;

Modified: trunk/languages/WMLScript/t/examples.t
==============================================================================
--- trunk/languages/WMLScript/t/examples.t	(original)
+++ trunk/languages/WMLScript/t/examples.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/examples.t
+    % perl t/examples.t
 
 =head1 DESCRIPTION
 
@@ -19,7 +19,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 5;
 use Test::More;

Modified: trunk/languages/WMLScript/t/expr.t
==============================================================================
--- trunk/languages/WMLScript/t/expr.t	(original)
+++ trunk/languages/WMLScript/t/expr.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/expr.t
+    % perl t/expr.t
 
 =head1 DESCRIPTION
 
@@ -18,7 +18,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 2;
 use Test::More;

Modified: trunk/languages/WMLScript/t/float.t
==============================================================================
--- trunk/languages/WMLScript/t/float.t	(original)
+++ trunk/languages/WMLScript/t/float.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/float.t
+    % perl t/float.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 41;
 use Test::More;

Modified: trunk/languages/WMLScript/t/functions.t
==============================================================================
--- trunk/languages/WMLScript/t/functions.t	(original)
+++ trunk/languages/WMLScript/t/functions.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/functions.t
+    % perl t/functions.t
 
 =head1 DESCRIPTION
 
@@ -18,7 +18,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 8;
 use Test::More;

Modified: trunk/languages/WMLScript/t/integer.t
==============================================================================
--- trunk/languages/WMLScript/t/integer.t	(original)
+++ trunk/languages/WMLScript/t/integer.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/number.t
+    % perl t/number.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 44;
 use Test::More;

Modified: trunk/languages/WMLScript/t/invalid.t
==============================================================================
--- trunk/languages/WMLScript/t/invalid.t	(original)
+++ trunk/languages/WMLScript/t/invalid.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/invalid.t
+    % perl t/invalid.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 23;
 use Test::More;

Modified: trunk/languages/WMLScript/t/lang.t
==============================================================================
--- trunk/languages/WMLScript/t/lang.t	(original)
+++ trunk/languages/WMLScript/t/lang.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/lang.t
+    % perl t/lang.t
 
 =head1 DESCRIPTION
 
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 25;
 use Test::More;

Modified: trunk/languages/WMLScript/t/libfloat.t
==============================================================================
--- trunk/languages/WMLScript/t/libfloat.t	(original)
+++ trunk/languages/WMLScript/t/libfloat.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/libfloat.t
+    % perl t/libfloat.t
 
 =head1 DESCRIPTION
 
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 8;
 use Test::More;

Modified: trunk/languages/WMLScript/t/libstring.t
==============================================================================
--- trunk/languages/WMLScript/t/libstring.t	(original)
+++ trunk/languages/WMLScript/t/libstring.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/libstring.t
+    % perl t/libstring.t
 
 =head1 DESCRIPTION
 
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 24;
 use Test::More;
@@ -496,7 +496,7 @@
 CODE
 Hello
 2
- Bye Jon . See you! 
+ Bye Jon . See you!
 2
 OUT
 

Modified: trunk/languages/WMLScript/t/literals.t
==============================================================================
--- trunk/languages/WMLScript/t/literals.t	(original)
+++ trunk/languages/WMLScript/t/literals.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/literals.t
+    % perl t/literals.t
 
 =head1 DESCRIPTION
 
@@ -19,7 +19,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 9;
 use Test::More;

Modified: trunk/languages/WMLScript/t/logical.t
==============================================================================
--- trunk/languages/WMLScript/t/logical.t	(original)
+++ trunk/languages/WMLScript/t/logical.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/logical.t
+    % perl t/logical.t
 
 =head1 DESCRIPTION
 
@@ -19,7 +19,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 18;
 use Test::More;

Modified: trunk/languages/WMLScript/t/pmc/boolean.t
==============================================================================
--- trunk/languages/WMLScript/t/pmc/boolean.t	(original)
+++ trunk/languages/WMLScript/t/pmc/boolean.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../../lib t/pmc/boolean.t
+    % perl t/pmc/boolean.t
 
 =head1 DESCRIPTION
 
@@ -19,6 +19,9 @@
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
+
 use Parrot::Test tests => 9;
 use Test::More;
 

Modified: trunk/languages/WMLScript/t/pmc/float.t
==============================================================================
--- trunk/languages/WMLScript/t/pmc/float.t	(original)
+++ trunk/languages/WMLScript/t/pmc/float.t	Mon Dec 22 12:57:35 2008
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../../lib t/pmc/float.t
+    % perl t/pmc/float.t
 
 =head1 DESCRIPTION
 
@@ -19,6 +19,9 @@
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
+
 use Parrot::Test tests => 11;
 use Test::More;
 

Modified: trunk/languages/WMLScript/t/pmc/integer.t
==============================================================================
--- trunk/languages/WMLScript/t/pmc/integer.t	(original)
+++ trunk/languages/WMLScript/t/pmc/integer.t	Mon Dec 22 12:57:35 2008
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../../lib t/pmc/integer.t
+    % perl t/pmc/integer.t
 
 =head1 DESCRIPTION
 
@@ -19,6 +19,9 @@
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
+
 use Parrot::Test tests => 11;
 use Test::More;
 

Modified: trunk/languages/WMLScript/t/pmc/invalid.t
==============================================================================
--- trunk/languages/WMLScript/t/pmc/invalid.t	(original)
+++ trunk/languages/WMLScript/t/pmc/invalid.t	Mon Dec 22 12:57:35 2008
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../../lib t/pmc/invalid.t
+    % perl t/pmc/invalid.t
 
 =head1 DESCRIPTION
 
@@ -19,6 +19,9 @@
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
+
 use Parrot::Test tests => 9;
 use Test::More;
 

Modified: trunk/languages/WMLScript/t/pmc/string.t
==============================================================================
--- trunk/languages/WMLScript/t/pmc/string.t	(original)
+++ trunk/languages/WMLScript/t/pmc/string.t	Mon Dec 22 12:57:35 2008
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../../lib t/pmc/string.t
+    % perl t/pmc/string.t
 
 =head1 DESCRIPTION
 
@@ -19,6 +19,9 @@
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../../lib";
+
 use Parrot::Test tests => 13;
 use Test::More;
 

Modified: trunk/languages/WMLScript/t/pragmas.t
==============================================================================
--- trunk/languages/WMLScript/t/pragmas.t	(original)
+++ trunk/languages/WMLScript/t/pragmas.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/pragmas.t
+    % perl t/pragmas.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 5;
 use Test::More;

Modified: trunk/languages/WMLScript/t/runtime.t
==============================================================================
--- trunk/languages/WMLScript/t/runtime.t	(original)
+++ trunk/languages/WMLScript/t/runtime.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,12 +8,15 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../../lib t/runtime.t
+    % perl t/runtime.t
 
 =cut
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../../lib";
+
 use Parrot::Test tests => 2;
 use Test::More;
 

Modified: trunk/languages/WMLScript/t/statements.t
==============================================================================
--- trunk/languages/WMLScript/t/statements.t	(original)
+++ trunk/languages/WMLScript/t/statements.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib WMLScript/t/statements.t
+    % perl t/statements.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 3;
 use Test::More;

Modified: trunk/languages/WMLScript/t/string.t
==============================================================================
--- trunk/languages/WMLScript/t/string.t	(original)
+++ trunk/languages/WMLScript/t/string.t	Mon Dec 22 12:57:35 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 =head1 NAME
@@ -8,7 +8,7 @@
 
 =head1 SYNOPSIS
 
-    % perl -I../lib  WMLScript/t/string.t
+    % perl t/string.t
 
 =head1 DESCRIPTION
 
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use FindBin;
-use lib "$FindBin::Bin";
+use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin";
 
 use Parrot::Test tests => 48;
 use Test::More;



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