[LON-CAPA-cvs] cvs: loncom /homework/caparesponse test.pl

[albertel]

albertel		Mon Jan 31 16:53:51 2005 EDT

  Modified files:              
    /loncom/homework/caparesponse	test.pl 
  Log:
  - updated test script for more error conditions
  
  
Index: loncom/homework/caparesponse/test.pl
diff -u loncom/homework/caparesponse/test.pl:1.1 loncom/homework/caparesponse/test.pl:1.2
--- loncom/homework/caparesponse/test.pl:1.1	Tue Nov 16 18:37:40 2004
+++ loncom/homework/caparesponse/test.pl	Mon Jan 31 16:53:51 2005
@@ -1,14 +1,14 @@
 use strict;
 use capa;
 
-my $unit="m";
-my $answer="3.4 mm";
+my $unit="N";
+my $answer="3.4 N";
 my $scaled="3.2";
 print("\n return code is (should be 6)".&capa::caparesponse_get_real_response($unit,$answer,\$scaled));
-print("\nscaled (should be 0.0034) ".$scaled);
+print("\nscaled (should be 0.0034) ".$scaled." unit $unit answer $answer");
 $unit="m";
 $answer="3.4 mm/J";
 $scaled=3.2;
 print("\n return code is (should be 15)".&capa::caparesponse_get_real_response($unit,$answer,\$scaled));
-print("\nscaled (should be 3.2) ".$scaled);
+print("\nscaled (should be 3.2) ".$scaled." unit $unit answer $answer");
 print("\n");