Return to test.pl CVS log

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

- BUG#2826 $result=capa::caparesponse_get_real_response($correct_unit,$student_answer,\$scaled_answer);
        - given a unit, and a student answer, $scaled_answer will be set to the floating point number that is what capa would use to compare to the 'correct answer'
        - $result is an interger return code check capaCommon.h for possible values

    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");