[LON-CAPA-cvs] cvs: loncom /metadata_database lonmetadata_test.pl

[matthew]

matthew		Mon Jan 12 16:56:32 2004 EDT

  Modified files:              
    /loncom/metadata_database	lonmetadata_test.pl 
  Log:
  Note to self: place variable initialization *before* the "exit;" and *before*
  the subroutines which depend on the variable are called.
  
  
Index: loncom/metadata_database/lonmetadata_test.pl
diff -u loncom/metadata_database/lonmetadata_test.pl:1.2 loncom/metadata_database/lonmetadata_test.pl:1.3
--- loncom/metadata_database/lonmetadata_test.pl:1.2	Mon Jan 12 16:48:38 2004
+++ loncom/metadata_database/lonmetadata_test.pl	Mon Jan 12 16:56:32 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 # The LearningOnline Network with CAPA
 #
-# $Id: lonmetadata_test.pl,v 1.2 2004/01/12 21:48:38 matthew Exp $
+# $Id: lonmetadata_test.pl,v 1.3 2004/01/12 21:56:32 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,12 @@
 use LONCAPA::lonmetadata();
 use Test::Simple tests => 4;
 
+##
+##  Note: The root password to my MySQL server is shown below.
+##  Access is only allowed from localhost so it should be okay.
+##  Now if you will excuse me I have to change the password on my luggage.
+##
+my $supersecretpassword = '123';  # shhhh
 
 ok(&create_test_db(),'database creation');
 ok(&test_creation(),'table creation');
@@ -47,12 +53,6 @@
 ##
 #####################################################################
 #####################################################################
-##
-##  Note: The root password to my MySQL server is shown below.
-##  Access is only allowed from localhost so it should be okay.
-##  Now if you will excuse me I have to change the password on my luggage.
-##
-my $supersecretpassword = '123';  # shhhh
 sub create_test_db {
     my $dbh = DBI->connect("DBI:mysql:test","root",$supersecretpassword,
                            { RaiseError =>0,PrintError=>0});