--- loncom/homework/caparesponse/test.pl	2004/11/16 23:37:40	1.1
+++ loncom/homework/caparesponse/test.pl	2005/01/31 21:53:51	1.2
@@ -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");