use strict;
use capa;

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