source: to-imperative/trunk/samples/Rational/test.rf @ 2303

// vim: set et ts=2 sw=2 :

$use Rational;
$use StdIO;

Main =
  {
    <WriteLN <QFromString ''>>;
    <PrintLN 'Fail'>;
  },
  <WriteLN <QFromString '0'>>,
  <WriteLN <QFromString '0.0'>>,
  <WriteLN <QFromString '10.00'>>,
  <WriteLN <QFromString '0.10'>>,
  <WriteLN <QFromString '.10'>>,
  <WriteLN <QFromString '-0.0'>>,
  <WriteLN <QFromString '-10.00'>>,
  <WriteLN <QFromString '-0.10'>>,
  <PrintLN <QToString 0 (1 3)>>,
  <PrintLN <QToString 1 (1 3)>>,
  <PrintLN <QToString 10 (1 3)>>,
  <PrintLN <QToString 0 (-7 3)>>,
  <PrintLN <QToString 1 (-7 3)>>,
  <PrintLN <QToString 10 (-7 3)>>,
  <PrintLN <QToString 0 (1 4)>>,
  <PrintLN <QToString 1 (1 4)>>,
  <PrintLN <QToString 10 (1 4)>>,
  <PrintLN <QToString 0 (-7 4)>>,
  <PrintLN <QToString 1 (-7 4)>>,
  <PrintLN <QToString 10 (-7 4)>>;