Work on configurable HTML: t+

jeffreykegler · Oct 10, 2012 · 2a4d47d · 2a4d47d
1 parent 87ce338
commit 2a4d47d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/r2/g/config/Configuration.pm → r2/g/config/default.txt b/r2/g/config/Configuration.pm → r2/g/config/default.txt
diff --git a/r2/html/t/config.t b/r2/html/t/config.t
@@ -58,8 +58,11 @@ my $short_round_trip_file = do {
 };
 
 my $long_round_trip_file = do {
+  open my $source_fh, q{<}, 'g/config/default.txt';
+  my $source_file = join q{}, <$source_fh>;
+  close $source_fh;
     my $long_round_trip_ref =
-        Marpa::R2::HTML::html( \"hi", \{ compile => 'g/config/default.txt', dump_config => 1 } );
+        Marpa::R2::HTML::html( \"hi", \{ compile => \$source_file, dump_config => 1 } );
     die "No parse" if not ref $long_round_trip_ref;
     ${$long_round_trip_ref};
 };