Permalink
Browse files

Documentation

  • Loading branch information...
1 parent 82190fd commit 98154d540361eb877851034cd59120e6bc8505e3 Jeffrey Kegler committed May 23, 2012
Showing with 5 additions and 6 deletions.
  1. +1 −1 r2/pod/Semantics/Null.pod
  2. +4 −5 r2/t/null_example.t
@@ -196,7 +196,7 @@ Here is the output:
name: Null Value Example Output
normalize-whitespace: 1
- S(L(null A;null B;x);null R)
+ S(L(null A;null B;X(x));null R)
=for Marpa::R2::Display::End
View
@@ -54,17 +54,16 @@ sub L {
}
sub R {
- shift;
- return 'R(' . ( join q{;}, map { $_ // '[ERROR!]' } @_ ) . ')';
+ return 'R(): I will never be called';
}
sub S {
shift;
return 'S(' . ( join q{;}, map { $_ // '[ERROR!]' } @_ ) . ')';
}
-sub X { return $_[1]; }
-sub Y { return $_[1]; }
+sub X { return 'X(' . $_[1] . ')'; }
+sub Y { return 'Y(' . $_[1] . ')'; }
our $null_A = 'null A';
our $null_B = 'null B';
@@ -108,7 +107,7 @@ $recce->read( 'x', 'x' );
# end-before-line: '^END_OF_OUTPUT$'
chomp( my $expected = <<'END_OF_OUTPUT');
-S(L(null A;null B;x);null R)
+S(L(null A;null B;X(x));null R)
END_OF_OUTPUT
# Marpa::R2::Display::End

0 comments on commit 98154d5

Please sign in to comment.