Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Decruftify some PASM examples and tests

  • Loading branch information...
commit 8cb5dcbcb70fc6ee0d582aff74027e0919211692 1 parent fcf3adf
@leto leto authored
Showing with 4 additions and 39 deletions.
  1. +2 −13 examples/pasm/fact.pasm
  2. +2 −26 t/examples/pasm.t
View
15 examples/pasm/fact.pasm
@@ -1,8 +1,8 @@
-# Copyright (C) 2001-2003, Parrot Foundation.
+# Copyright (C) 2001-2011, Parrot Foundation.
=head1 NAME
-examples/pasm/fact.pasm - Mmmm, beer good
+examples/pasm/fact.pasm - Recursive Factorial in PASM
=head1 SYNOPSIS
@@ -12,17 +12,6 @@ examples/pasm/fact.pasm - Mmmm, beer good
Compute the factorial recursively for 0! to 30! and print the results.
-=head1 HISTORY
-
-=over 4
-
-=item 20020316 bdwheele@indiana.edu
-
-Changed local labels to global for new assembler. Use C<pushi> instead
-of the now missing C<clonei>.
-
-=back
-
=cut
.pcc_sub :main main:
View
28 t/examples/pasm.t
@@ -1,11 +1,11 @@
#! perl
-# Copyright (C) 2005-2006, Parrot Foundation.
+# Copyright (C) 2005-2011, Parrot Foundation.
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 3;
+use Parrot::Test tests => 2;
use Parrot::Config;
=head1 NAME
@@ -20,10 +20,6 @@ t/examples/pasm.t - Test examples in F<examples/pasm>
Test the examples in F<examples/pasm>.
-=head1 TODO
-
-Put expected output into the example files.
-
=head1 SEE ALSO
F<t/examples/pir.t>
@@ -36,20 +32,6 @@ my %expected = (
'hello.pasm' => << 'END_EXPECTED',
Hello World
END_EXPECTED
-
-# 'xml_parser.pasm' => << 'END_EXPECTED',
-#Start xml version=1.0
-#Start top
-#Start inner foo=bar narf=poit
-#Start junk
-#Data Hello
-#Close junk
-#Start empty
-#Close empty
-#Close inner
-#Close top
-#END_EXPECTED
-
);
SKIP: {
@@ -94,12 +76,6 @@ while ( my ( $example, $expected ) = each %expected ) {
example_output_is( "examples/pasm/$example", $expected );
}
-TODO:
-{
- local $TODO = 'nanoforth2.pasm not testable yet';
- fail('nanoforth2.pasm');
-}
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Please sign in to comment.
Something went wrong with that request. Please try again.