[BACK]Return to test.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework / caparesponse
File:  [LON-CAPA] / loncom / homework / caparesponse / test.pl
Revision 1.2: download - view: text, annotated - select for diffs
Mon Jan 31 21:53:51 2005 UTC (19 years, 3 months ago) by albertel
Branches: MAIN
CVS tags: version_2_2_X, version_2_2_2, version_2_2_1, version_2_2_0, version_2_1_X, version_2_1_99_3, version_2_1_99_2, version_2_1_99_1, version_2_1_99_0, version_2_1_3, version_2_1_2, version_2_1_1, version_2_1_0, version_2_0_X, version_2_0_99_1, version_2_0_2, version_2_0_1, version_2_0_0, version_1_99_3, version_1_99_2, version_1_99_1_tmcc, version_1_99_1, version_1_99_0_tmcc, version_1_99_0, HEAD
- updated test script for more error conditions

use strict;
use capa;

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." 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." unit $unit answer $answer");
print("\n");
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>