[svn:parrot] r37902 - trunk/tools/install

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Apr  4 15:42:54 2009
New Revision: 37902
URL: https://trac.parrot.org/parrot/changeset/37902

Log:
[languages] fix some tests

Modified:
   trunk/tools/install/smoke_languages.pl

Modified: trunk/tools/install/smoke_languages.pl
==============================================================================
--- trunk/tools/install/smoke_languages.pl	Sat Apr  4 15:01:33 2009	(r37901)
+++ trunk/tools/install/smoke_languages.pl	Sat Apr  4 15:42:54 2009	(r37902)
@@ -9,7 +9,7 @@
 use Getopt::Long;
 use File::Spec::Functions;
 
-use Test::More tests => 30;
+use Test::More tests => 31;
 
 =head1 NAME
 
@@ -159,10 +159,10 @@
 $filename = 'test.js';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
-print $FH "print(\"Hello World from JS\\n\");";
+print $FH "print(\"Hello World from JS\");";
 close $FH;
 $out = `$parrot $langdir/ecmascript/js.pbc $filename`;
-ok($out eq "Hello World from JS\n\n", "check ecmascript");
+ok($out eq "Hello World from JS\n", "check ecmascript");
 unlink($filename);
 }
 
@@ -351,10 +351,10 @@
 $filename = 'test.p1';
 open $FH, '>', $filename
         or die "Can't open $filename ($!).\n";
-print $FH "print \"Hello, World!\\n\";\n";
+print $FH "print \"Hello, World!\";\n";
 close $FH;
 $out = `$parrot $langdir/punie/punie.pbc $filename`;
-ok($out eq "Hello, World!\n", "check punie");
+ok($out eq "Hello, World!", "check punie");
 unlink($filename);
 }