loncom/homework/caparesponse/test.pl - diff

Return to test.pl CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.1, 2004/11/16 23:37:40	version 1.2, 2005/01/31 21:53:51
Line 1	Line 1
use strict;	use strict;
use capa;	use capa;

my $unit="m";	my $unit="N";
my $answer="3.4 mm";	my $answer="3.4 N";
my $scaled="3.2";	my $scaled="3.2";
print("\n return code is (should be 6)".&capa::caparesponse_get_real_response($unit,$answer,\$scaled));	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";	$unit="m";
$answer="3.4 mm/J";	$answer="3.4 mm/J";
$scaled=3.2;	$scaled=3.2;
print("\n return code is (should be 15)".&capa::caparesponse_get_real_response($unit,$answer,\$scaled));	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");	print("\n");