Ticket #439: packfile_tests.diff

MANIFEST

@@ -1866 +1866 @@
 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]

t/pmc/packfileannotationkeys.t

@@ +1 @@
+#!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

t/pmc/packfileannotations.t

@@ +1 @@
+#!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

t/pmc/packfileannotation.t

@@ +1 @@
+#!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