[LON-CAPA-cvs] cvs: modules /jerf/tests Data.pm

bowersj2 lon-capa-cvs@mail.lon-capa.org
Thu, 17 Jul 2003 20:33:02 -0000


bowersj2		Thu Jul 17 16:33:02 2003 EDT

  Modified files:              
    /modules/jerf/tests	Data.pm 
  Log:
  Add some data for lonnavmaps testing.
  
  
Index: modules/jerf/tests/Data.pm
diff -u modules/jerf/tests/Data.pm:1.1 modules/jerf/tests/Data.pm:1.2
--- modules/jerf/tests/Data.pm:1.1	Thu Jul 10 15:35:33 2003
+++ modules/jerf/tests/Data.pm	Thu Jul 17 16:33:02 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # testing data
 #
-# $Id: Data.pm,v 1.1 2003/07/10 19:35:33 bowersj2 Exp $
+# $Id: Data.pm,v 1.2 2003/07/17 20:33:02 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -99,6 +99,12 @@
 # Roles that can sensibly be assigned to course+section
 our @sectionRoles = ('in', 'ta', 'ep', 'st', 'ad');
 
+# A list of (role, section) pairs that systematically walks through 
+# all role w/ and w/o section pairs that matter
+our @allCourseRoles = ();
+
+for my $role (@courseRoles) { push @allCourseRoles, [$role, undef]; }
+for my $role (@sectionRoles) { push @allCourseRoles, [$role, '001']; }
 
 # DATA INFORMATION
 # Information about the files contained in the data directory
@@ -125,6 +131,7 @@
 			 truefalse => 'truefalse.problem',
 			 multipart => 'harsh.multipart.problem');
 
+
 our @HTMLResources = ('testhtml.html');
 
 # Selected metadata results for some of the problems. This
@@ -241,5 +248,21 @@
 	'stores_0_awarded' => undef,
 	'stores_0_tries' => undef
 };
+
+# Record the order of the problems in the all.problems.sequence so we
+# can test the navmaps.
+
+our @allProblemsSequence = (
+			    'blank.problem',
+			    'radio.problem',
+			    'ranking.problem',
+			    'essay.problem',
+			    'formula.problem',
+			    'harsh.multipart.problem',
+			    'matching.problem',
+			    'numerical.problem',
+			    'option.problem',
+			    'plot.problem'
+			    );
 
 1;