Author: infinoid
Date: Thu Jan 8 20:37:34 2009
New Revision: 35236
Added:
trunk/t/pmc/packfiledirectory.t
- copied, changed from r35235, /trunk/t/pmc/packfile.t
trunk/t/pmc/packfilesegment.t
Modified:
trunk/t/pmc/packfile.t
Log:
[pdd13] Split the tests in packfile.t into per-pmc test files
(packfiledirectory and packfilesegment for now).
Modified: trunk/t/pmc/packfile.t
==============================================================================
--- trunk/t/pmc/packfile.t (original)
+++ trunk/t/pmc/packfile.t Thu Jan 8 20:37:34 2009
@@ -6,7 +6,7 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 6;
use Parrot::Config;
=head1 NAME
@@ -156,144 +156,6 @@
OUT
-# PackfileDirectory.elements
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'PackfileDirectory.elements'
);
-.sub 'test' :main
- .local pmc pf, pfdir
- pf = _pbc()
- pfdir = pf.'get_directory'()
- $I0 = elements pfdir
- say $I0
-.end
-CODE
-5
-OUT
-
-
-# PackfileDirectory.get_pmc_keyed_int
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT',
'PackfileDirectory.get_pmc_keyed_int' );
-.sub 'test' :main
- .local pmc pf, pfdir
- pf = _pbc()
- pfdir = pf.'get_directory'()
- $I0 = elements pfdir
- $I1 = 0
- LOOP:
- $P0 = pfdir[$I1]
- $I2 = defined $P0
- eq $I2, 0, ERROR
- inc $I1
- eq $I0, $I1, DONE
- goto LOOP
- DONE:
- say "done"
- .return()
- ERROR:
- say "error"
-.end
-CODE
-done
-OUT
-
-
-# PackfileDirectory.get_string_keyed_int
-{
- my $EXPECTED = <<EXPECTED;
-BYTECODE_runtime/parrot/library/uuid.pir
-FIXUP_runtime/parrot/library/uuid.pir
-CONSTANT_runtime/parrot/library/uuid.pir
-PIC_idx_runtime/parrot/library/uuid.pir
-BYTECODE_runtime/parrot/library/uuid.pir_DB
-EXPECTED
-
- $EXPECTED =~ s/\//\\/g
- if $^O eq 'MSWin32';
-
- pir_output_is( <<'CODE' . $get_uuid_pbc, $EXPECTED,
'PackfileDirectory.get_string_keyed_int' );
-.sub 'test' :main
- .local pmc pf, pfdir
- pf = _pbc()
- pfdir = pf.'get_directory'()
- $I0 = elements pfdir
- $I1 = 0
- LOOP:
- $S0 = pfdir[$I1]
- say $S0
- inc $I1
- eq $I0, $I1, DONE
- goto LOOP
- DONE:
- .return()
-.end
-CODE
-}
-
-
-# PackfileDirectory.get_pmc_keyed_str
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT',
'PackfileDirectory.get_pmc_keyed_str' );
-.sub 'test' :main
- .local pmc pf, pfdir
- pf = _pbc()
- pfdir = pf.'get_directory'()
- $I0 = elements pfdir
- $I1 = 0
- LOOP:
- $P0 = pfdir[$I1]
- $S1 = pfdir[$I1]
- $P1 = pfdir[$S1]
- $S0 = typeof $P0
- $S1 = typeof $P1
- eq $S0, $S1, GOOD
- goto ERROR
- GOOD:
- inc $I1
- eq $I0, $I1, DONE
- goto LOOP
- DONE:
- say 'good'
- .return()
- ERROR:
- say 'mismatch'
-.end
-CODE
-good
-OUT
-
-
-# PackfileDirectory.set_pmc_keyed_str
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT',
'PackfileDirectory.set_pmc_keyed_str', todo => 'implement this' );
-.sub 'test' :main
- .local pmc pf, pfdir
- pf = _pbc()
- pfdir = pf.'get_directory'()
- $P0 = pfdir[0]
- $S0 = 'BYTECODE_foo'
- pfdir[$S0] = $P0
- $I0 = elements pfdir
- $I1 = 0
- LOOP:
- $S0 = pfdir[$I1]
- say $S0
- inc $I1
- eq $I0, $I1, DONE
- goto LOOP
- DONE:
- .return()
-.end
-CODE
-BYTECODE_runtime/parrot/library/uuid.pir
-FIXUP_runtime/parrot/library/uuid.pir
-CONSTANT_runtime/parrot/library/uuid.pir
-PIC_idx_runtime/parrot/library/uuid.pir
-BYTECODE_runtime/parrot/library/uuid.pir_DB
-BYTECODE_foo
-OUT
-
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Copied: trunk/t/pmc/packfiledirectory.t (from r35235, /trunk/t/pmc/packfile.t)
==============================================================================
--- /trunk/t/pmc/packfile.t (original)
+++ trunk/t/pmc/packfiledirectory.t Thu Jan 8 20:37:34 2009
@@ -1,60 +1,31 @@
#!perl
-# Copyright (C) 2006-2008, The Perl Foundation.
+# Copyright (C) 2009, The Perl Foundation.
# $Id$
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 6;
use Parrot::Config;
=head1 NAME
-t/pmc/packfile.t - test the Packfile PMC
+t/pmc/packfiledirectory.t - test the PackfileDirectory PMC
=head1 SYNOPSIS
- % prove t/pmc/packfile.t
+ % prove t/pmc/packfiledirectory.t
=head1 DESCRIPTION
-Tests the Packfile PMC.
+Tests the PackfileDirectory PMC.
=cut
-# Packfile constructor
-
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
- .local pmc pf
- pf = new 'Packfile'
- $I0 = defined pf
- say $I0
-.end
-CODE
-1
-OUT
-
-
-# Packfile.get_integer_keyed_str
-
-pir_output_is( <<'CODE', <<'OUT', 'get_integer_keyed_str' );
-.sub 'test' :main
- .local pmc pf
- pf = new 'Packfile'
- $S0 = 'version_major'
- $I0 = pf[$S0]
- say $I0
-.end
-CODE
-0
-OUT
-
-
-# Packfile.get_directory
+# PackfileDirectory.typeof
pir_output_is( <<'CODE', <<'OUT', 'get_directory' );
.sub 'test' :main
@@ -90,72 +61,6 @@
EOF
-# Packfile.set_string_native, Packfile.get_integer_keyed_str
-pir_output_is( <<'CODE' . $get_uuid_pbc, $PConfig{VERSION},
'set_string_native' );
-.sub 'test' :main
- .local pmc pf
- pf = _pbc()
- $S0 = "version_major"
- $I0 = pf[$S0]
- $S0 = "version_minor"
- $I1 = pf[$S0]
- $S0 = "version_patch"
- $I2 = pf[$S0]
- print $I0
- print "."
- print $I1
- print "."
- print $I2
-.end
-CODE
-
-
-# Packfile.set_integer_keyed_str
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'set_integer_keyed_str' );
-.sub 'test' :main
- .local pmc pf
- pf = _pbc()
- $S1 = 'version_major'
- $I0 = pf[$S1]
- $I1 = $I0
- inc $I1
- pf[$S1] = $I1
- $I2 = pf[$S1]
- eq $I0, $I1, OUT1
- print "not "
- OUT1:
- say "equal"
- eq $I1, $I2, OUT2
- print "not "
- OUT2:
- say "equal"
-.end
-CODE
-not equal
-equal
-OUT
-
-
-# PackfileSegment.pack (via subclass PackfileDirectory)
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'set_integer_keyed_str' );
-.sub 'test' :main
- .local pmc pf, pfdir
- pf = _pbc()
- pfdir = pf.'get_directory'()
- $S0 = pfdir.'pack'()
- $I0 = length $S0
- eq $I0, 0, OUT1
- print "not "
- OUT1:
- say "equal"
-.end
-CODE
-not equal
-OUT
-
-
# PackfileDirectory.elements
pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'PackfileDirectory.elements'
);
Added: trunk/t/pmc/packfilesegment.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/packfilesegment.t Thu Jan 8 20:37:34 2009
@@ -0,0 +1,73 @@
+#!perl
+# Copyright (C) 2009, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+use Parrot::Config;
+
+=head1 NAME
+
+t/pmc/packfilesegment.t - test the PackfileSegment PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/packfilesegment.t
+
+=head1 DESCRIPTION
+
+Tests the PackfileSegment PMC.
+
+=cut
+
+
+# common setup code for later tests
+
+my $get_uuid_pbc = <<'EOF';
+
+.sub _pbc
+ .include "stat.pasm"
+ .include "interpinfo.pasm"
+ .local pmc pf, pio
+ pf = new 'Packfile'
+ $S0 = interpinfo .INTERPINFO_RUNTIME_PREFIX
+ $S0 .= "/runtime/parrot/library/uuid.pbc"
+ $I0 = stat $S0, .STAT_FILESIZE
+ pio = open $S0, 'r'
+ $S0 = read pio, $I0
+ close pio
+ pf = $S0
+ .return(pf)
+.end
+EOF
+
+
+# PackfileSegment.pack (via subclass PackfileDirectory)
+
+pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'set_integer_keyed_str' );
+.sub 'test' :main
+ .local pmc pf, pfdir
+ pf = _pbc()
+ pfdir = pf.'get_directory'()
+ $S0 = pfdir.'pack'()
+ $I0 = length $S0
+ eq $I0, 0, OUT1
+ print "not "
+ OUT1:
+ say "equal"
+.end
+CODE
+not equal
+OUT
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
