Applied patch sent in by Daniel Westermann-Clark on Oct 11 2006.

[dbsrgits/SQL-Translator.git] / t / lib / Producer / BaseTest.pm

diff --git a/t/lib/Producer/BaseTest.pm b/t/lib/Producer/BaseTest.pm
index a31c682..57cf39c 100644 (file)
--- a/t/lib/Producer/BaseTest.pm
+++ b/t/lib/Producer/BaseTest.pm
@@ -20,9 +20,10 @@ sub tt_config { ( INTERPOLATE => 1 ); }
 
 __DATA__
 Hello World
-Tables: [% schema.get_tables %]
-[% table = schema.get_tables.first -%]
+Tables: [% schema.get_tables.join(', ') %]
+[% FOREACH table IN schema.get_tables -%]
 
 $table
 ------
 Fields: $table.field_names.join
+[% END %]