From: Mark Addison <grommit@users.sourceforge.net>
Date: Wed, 25 May 2005 11:37:58 +0000 (+0000)
Subject: Added explicit close on FILE and fixed spelling mistaked (from Chris Hilton patch
X-Git-Tag: v0.11008~562
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41fa63fde422b1229ac8ddafcbd2aac63e2d3910;p=dbsrgits%2FSQL-Translator.git

Added explicit close on FILE and fixed spelling mistaked (from Chris Hilton patch
---

diff --git a/t/33tt-table-producer.t b/t/33tt-table-producer.t
index 226679e..c1ccfb7 100644
--- a/t/33tt-table-producer.t
+++ b/t/33tt-table-producer.t
@@ -66,20 +66,22 @@ is( $files[1], "$tdir/pet.txt"    , "Wrote pet.txt" );
 open(FILE, "$tdir/person.txt") || die "Couldn't open $tdir/person.txt : $!";
 eq_or_diff <FILE>, qq{Table: person
   Primary Key:  person_id
-  Foriegn Keys: 
+  Foreign Keys: 
   Data Fields:  name, age, weight, iq, description
 
 }
 , "person.txt looks right";
+close(FILE);
 
 open(FILE, "$tdir/pet.txt") || die "Couldn't open $tdir/pet.txt : $!";
 eq_or_diff <FILE>, qq{Table: pet
   Primary Key:  pet_id, person_id
-  Foriegn Keys: 
+  Foreign Keys: 
   Data Fields:  name, age
 
 }
-, "person.txt looks right";
+, "pet.txt looks right";
+close(FILE);
 
 
 print $out if DEBUG;
@@ -88,11 +90,11 @@ print $out if DEBUG;
 __DATA__
 Table: person
   Primary Key:  person_id
-  Foriegn Keys: 
+  Foreign Keys: 
   Data Fields:  name, age, weight, iq, description
 
 Table: pet
   Primary Key:  pet_id, person_id
-  Foriegn Keys: 
+  Foreign Keys: 
   Data Fields:  name, age
 
diff --git a/t/data/template/table.tt b/t/data/template/table.tt
index be59a80..9142765 100644
--- a/t/data/template/table.tt
+++ b/t/data/template/table.tt
@@ -1,5 +1,5 @@
 Table: [% table %]
   Primary Key:  [% table.pkey_fields.join(", ") %]
-  Foriegn Keys: [% table.key_fields.join(", ") %]
+  Foreign Keys: [% table.key_fields.join(", ") %]
   Data Fields:  [% table.data_fields.join(", ") %]