http://qs321.pair.com?node_id=962291


in reply to Converting words to numbers with HOP::Parser

What to do?

ok 1 - use Number::FromWord; ok 2 - main->can('word_to_num') ok 3 - ... three should be 3 ok 4 - ... fourteen should be 14 ok 5 - ... forty should be 40 not ok 6 - ... forty-two should be 42 # Failed test '... forty-two should be 42' # at t\01.t line 42. # got: undef # expected: '42' not ok 7 - ... ninety nine should be 99 # Failed test '... ninety nine should be 99' # at t\01.t line 42. # got: undef # expected: '99' ok 8 - ... hundred should be 100 not ok 9 - ... hundred and twenty should be 120 # Failed test '... hundred and twenty should be 120' # at t\01.t line 42. # got: undef # expected: '120' not ok 10 - ... hundred and two should be 102 # Failed test '... hundred and two should be 102' # at t\01.t line 42. # got: undef # expected: '102' not ok 11 - ... negative hundred and two should be -102 # Failed test '... negative hundred and two should be -102' # at t\01.t line 42. # got: undef # expected: '-102' not ok 12 - ... hundred ninety-nine should be 199 # Failed test '... hundred ninety-nine should be 199' # at t\01.t line 42. # got: undef # expected: '199' not ok 13 - ... hundred nineteen should be 119 # Failed test '... hundred nineteen should be 119' # at t\01.t line 42. # got: undef # expected: '119' not ok 14 - ... two hundred and three should be 203 # Failed test '... two hundred and three should be 203' # at t\01.t line 42. # got: undef # expected: '203' not ok 15 - ... twelve hundred and seventy three should be 1273 # Failed test '... twelve hundred and seventy three should be 1273' # at t\01.t line 42. # got: undef # expected: '1273' ok 16 - ... thousand should be 1000 not ok 17 - ... seven hundred thirty-three thousand five hundred and t +wenty-nine should be 733529 # Failed test '... seven hundred thirty-three thousand five hundred +and twenty-nine should be 733529' # at t\01.t line 42. # got: undef # expected: '733529' not ok 18 - ... seventy three point two four five should be 73.245 # Failed test '... seventy three point two four five should be 73.24 +5' # at t\01.t line 42. # got: undef # expected: '73.245' not ok 19 - ... three point seventeen should be 3.17 # Failed test '... three point seventeen should be 3.17' # at t\01.t line 42. # got: undef # expected: '3.17' not ok 20 - ... seven million should be 7000000 # Failed test '... seven million should be 7000000' # at t\01.t line 42. # got: undef # expected: '7000000' not ok 21 - ... two hundred and ninety six million four hundred and tw +enty-two thousand five hundred and seventy eight should be 296422578 # Failed test '... two hundred and ninety six million four hundred a +nd twenty-two thousand five hundred and seventy eight should be 29642 +2578' # at t\01.t line 42. # got: undef # expected: '296422578' not ok 22 - ... two hundred and ninety six million four hundred and tw +enty-two thousand five hundred and seventy eight point three four sev +en should be 296422578.347 # Failed test '... two hundred and ninety six million four hundred a +nd twenty-two thousand five hundred and seventy eight point three fou +r seven should be 296422578.347' # at t\01.t line 42. # got: undef # expected: '296422578.347' 1..22 # Looks like you failed 15 tests of 22.