Test for function IS_NUMBER of PL/SQL package TXT

declare

  procedure test_str(str varchar2, expected boolean) is
  begin

    if txt.is_number(str) != expected then
       dbms_output.put_line('Wrong expectation for >' || str || '<');
    end if;

  end test_str;

begin

-- numbers
   test_str( '42'    , true);
   test_str( '42.42' , true);
   test_str('-42'    , true);
   test_str('-42.42' , true);
   test_str('4.249E6', true);

-- leading spaces:
   test_str('     42'     , true);
   test_str('     42.42'  , true);
   test_str('    -42'     , true);
   test_str('    -42.42'  , true);
   test_str('  4.249E6'   , true);

-- leading + trailing spaces:
   test_str('     42     ', true);
   test_str('     42.42  ', true);
   test_str('    -42     ', true);
   test_str('    -42.42  ', true);
   test_str('  4.249E6   ', true);

   test_str('foo'         , false);

end;
/