Permalink
Browse files

regression test for nom's duplicate-reification bug ("bacon bacon").

  • Loading branch information...
1 parent faefe72 commit 1b0fdc48fbdb6d1b3eb73ef0543559dc5114e44c @pmichaud pmichaud committed Jul 6, 2011
Showing with 10 additions and 1 deletion.
  1. +10 −1 S02-builtin_data_types/lists.t
@@ -9,7 +9,7 @@ use Test;
# for this test. See
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22924">
-plan 27;
+plan 29;
# Indexing lists
{
@@ -162,6 +162,15 @@ plan 27;
is $x, 44, 'variable not changed via assignment to list element';
}
+# nom regression bug
+{
+ my $x = List.new('bacon');
+ my $y = $x.Str;
+ my $z = $x.Str;
+ is $y, 'bacon', '3rd-party reification of List doesn't duplicate rest'
+ is $z, 'bacon', '3rd-party reification of List doesn't duplicate rest'
+}
+
done;
# vim: ft=perl6

0 comments on commit 1b0fdc4

Please sign in to comment.