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;