Return to test.pl CVS log

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

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

1.1     ! albertel    1: use strict;
        !             2: use capa;
        !             3: 
        !             4: my $unit="m";
        !             5: my $answer="3.4 mm";
        !             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);
        !             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);
        !            14: print("\n");