cvsuser 03/01/28 02:17:19
Modified: . MANIFEST
lib/Parrot Test.pm
t harness
Added: t/native_pbc number.t number_1.pbc number_2.pbc
Log:
packfile #4 - long/long double native tests
Revision Changes Path
1.306 +3 -0 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.305
retrieving revision 1.306
diff -u -w -r1.305 -r1.306
--- MANIFEST 16 Jan 2003 17:37:37 -0000 1.305
+++ MANIFEST 28 Jan 2003 10:16:29 -0000 1.306
@@ -1714,6 +1714,9 @@
sub.c
testyamd
t/harness
+t/native_pbc/number.t
+t/native_pbc/number_1.pbc
+t/native_pbc/number_2.pbc
t/op/arithmetics.t
t/op/basic.t
t/op/bitwise.t
1.32 +4 -1 parrot/lib/Parrot/Test.pm
Index: Test.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -w -r1.31 -r1.32
--- Test.pm 7 Oct 2002 16:14:50 -0000 1.31
+++ Test.pm 28 Jan 2003 10:16:42 -0000 1.32
@@ -60,7 +60,10 @@
my $by_f = per_test('.pbc',$count);
my $can_skip_compile = $ENV{PARROT_QUICKTEST};
- if ($can_skip_compile)
+ if ($by_f =~ /native_pbc/) {
+ $can_skip_compile = 1; # i.e. must skip
+ }
+ elsif ($can_skip_compile)
{
open INASSEMBLY, "$as_f" or $can_skip_compile = 0;
if ($can_skip_compile) {
1.14 +2 -2 parrot/t/harness
Index: harness
===================================================================
RCS file: /cvs/public/parrot/t/harness,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -r1.13 -r1.14
--- harness 21 Oct 2002 08:47:10 -0000 1.13
+++ harness 28 Jan 2003 10:17:00 -0000 1.14
@@ -1,5 +1,5 @@
#! perl -w
-# $Id: harness,v 1.13 2002/10/21 08:47:10 sfink Exp $
+# $Id: harness,v 1.14 2003/01/28 10:17:00 leo Exp $
use strict;
use lib 'lib';
@@ -19,5 +19,5 @@
@ARGV = grep $_ ne 'quick', @ARGV;
# Pass in a list of tests to run on the command line, else run all the tests.
-my @tests = @ARGV ? @ARGV : map { glob( "t/$_/*.t" ) } ( qw(src op pmc) );
+my @tests = @ARGV ? @ARGV : map { glob( "t/$_/*.t" ) } ( qw(src op pmc native_pbc)
);
runtests(@tests);
1.1 parrot/t/native_pbc/number.t
Index: number.t
===================================================================
#! perl -w
use Parrot::Test tests => 2;
use Test::More;
output_is(<<CODE, <<OUTPUT, "i386 double float 32 bit int");
# number_1.pbc
CODE
1.000000
4.000000
16.000000
64.000000
256.000000
1024.000000
4096.000000
16384.000000
65536.000000
262144.000000
1048576.000000
4194304.000000
16777216.000000
67108864.000000
268435456.000000
1073741824.000000
4294967296.000000
17179869184.000000
68719476736.000000
274877906944.000000
1099511627776.000000
4398046511104.000000
17592186044416.000000
70368744177664.000000
281474976710656.000000
1125899906842620.000000
OUTPUT
output_is(<<CODE, <<OUTPUT, "i386 long double float 32 bit int");
# number_2.pbc
CODE
1.000000
4.000000
16.000000
64.000000
256.000000
1024.000000
4096.000000
16384.000000
65536.000000
262144.000000
1048576.000000
4194304.000000
16777216.000000
67108864.000000
268435456.000000
1073741824.000000
4294967296.000000
17179869184.000000
68719476736.000000
274877906944.000000
1099511627776.000000
4398046511104.000000
17592186044416.000000
70368744177664.000000
281474976710656.000000
1125899906842620.000000
OUTPUT
1.1 parrot/t/native_pbc/number_1.pbc
<<Binary file>>
1.1 parrot/t/native_pbc/number_2.pbc
<<Binary file>>
