Index: MANIFEST =================================================================== --- MANIFEST (revision 37402) +++ MANIFEST (working copy) @@ -1866,6 +1866,9 @@ t/pmc/orderedhash.t [test] t/pmc/os.t [test] t/pmc/packfile.t [test] +t/pmc/packfileannotation.t [test] +t/pmc/packfileannotations.t [test] +t/pmc/packfileannotationkeys.t [test] t/pmc/packfileconstanttable.t [test] t/pmc/packfiledirectory.t [test] t/pmc/packfilefixupentry.t [test] Index: t/pmc/packfileannotationkeys.t =================================================================== --- t/pmc/packfileannotationkeys.t (revision 0) +++ t/pmc/packfileannotationkeys.t (revision 0) @@ -0,0 +1,38 @@ +#!perl +# Copyright (C) 2006-2009, Parrot Foundation. + +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/packfileannotationkeys.t - test the PackfileAnnotationKeys PMC + + +=head1 SYNOPSIS + + % prove t/pmc/packfileannotationkeys.t + +=head1 DESCRIPTION + +Tests the PackfileAnnotationKeys PMC. + +=cut + + +# Packfile constructor + +pir_output_is( <<'CODE', <<'OUT', 'new' ); +.sub 'test' :main + .local pmc pf + pf = new ['PackfileAnnotationKeys'] + $I0 = defined pf + say $I0 +.end +CODE +1 +OUT Index: t/pmc/packfileannotations.t =================================================================== --- t/pmc/packfileannotations.t (revision 0) +++ t/pmc/packfileannotations.t (revision 0) @@ -0,0 +1,38 @@ +#!perl +# Copyright (C) 2006-2009, Parrot Foundation. + +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/packfileannotations.t - test the PackfileAnnotations PMC + + +=head1 SYNOPSIS + + % prove t/pmc/packfileannotations.t + +=head1 DESCRIPTION + +Tests the PackfileAnnotations PMC. + +=cut + + +# Packfile constructor + +pir_output_is( <<'CODE', <<'OUT', 'new' ); +.sub 'test' :main + .local pmc pf + pf = new ['PackfileAnnotations'] + $I0 = defined pf + say $I0 +.end +CODE +1 +OUT Index: t/pmc/packfileannotation.t =================================================================== --- t/pmc/packfileannotation.t (revision 0) +++ t/pmc/packfileannotation.t (revision 0) @@ -0,0 +1,38 @@ +#!perl +# Copyright (C) 2006-2009, Parrot Foundation. + +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/packfileannotation.t - test the PackfileAnnotation PMC + + +=head1 SYNOPSIS + + % prove t/pmc/packfileannotation.t + +=head1 DESCRIPTION + +Tests the PackfileAnnotation PMC. + +=cut + + +# Packfile constructor + +pir_output_is( <<'CODE', <<'OUT', 'new' ); +.sub 'test' :main + .local pmc pf + pf = new ['PackfileAnnotation'] + $I0 = defined pf + say $I0 +.end +CODE +1 +OUT