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, 6 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
1: use strict;
2: use capa;
3:
4: my $unit="N";
5: my $answer="3.4 N";
6: my $scaled="3.2";
7: print("\n return code is (should be 6)".&capa::caparesponse_get_real_response($unit,$answer,\$scaled));
8: print("\nscaled (should be 0.0034) ".$scaled." unit $unit answer $answer");
9: $unit="m";
10: $answer="3.4 mm/J";
11: $scaled=3.2;
12: print("\n return code is (should be 15)".&capa::caparesponse_get_real_response($unit,$answer,\$scaled));
13: print("\nscaled (should be 3.2) ".$scaled." unit $unit answer $answer");
14: print("\n");
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>