[LON-CAPA-cvs] cvs: loncom /interface/test lonmysqltest.pl
matthew
lon-capa-cvs@mail.lon-capa.org
Mon, 21 Feb 2005 18:07:30 -0000
matthew Mon Feb 21 13:07:30 2005 EDT
Modified files:
/loncom/interface/test lonmysqltest.pl
Log:
Use 'a'..'z' instead of qw/a b c .../.
Index: loncom/interface/test/lonmysqltest.pl
diff -u loncom/interface/test/lonmysqltest.pl:1.1 loncom/interface/test/lonmysqltest.pl:1.2
--- loncom/interface/test/lonmysqltest.pl:1.1 Mon Feb 21 12:25:34 2005
+++ loncom/interface/test/lonmysqltest.pl Mon Feb 21 13:07:30 2005
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
# The LearningOnline Network with CAPA
#
-# $Id: lonmysqltest.pl,v 1.1 2005/02/21 17:25:34 matthew Exp $
+# $Id: lonmysqltest.pl,v 1.2 2005/02/21 18:07:30 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,7 +44,7 @@
$supersecretpassword,
'lonmysqltest');
&Apache::lonmysql::connect_to_db();
-my @letters = qw/a b c d e f g h i j k l m n o p q r s t u v w x y z/;
+my @letters = ('a'..'z');
foreach my $letter (@letters) {
my $tablename = '1234'.$letter.'5678';
ok(&test_table_name_creation($tablename),'creating '.$tablename);