Return to test.pl CVS log

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

Annotation of loncom/homework/caparesponse/test.pl, revision 1.4

1.1       albertel    1: use strict;
1.4     ! albertel    2: use capa;
1.1       albertel    3: 
1.4     ! albertel    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");