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

use strict;
use capa;

my $unit="m";
my $answer="3.4 mm";
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="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);
print("\n");