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

Last change on this file since 2303 was 2219, checked in by yura, 14 years ago

Test is corrected due to new Rational.rf

File size: 803 bytes
Line 
1// vim: set et ts=2 sw=2 :
2
3$use Rational;
4$use StdIO;
5
6Main =
7  {
8    <WriteLN <QFromString ''>>;
9    <PrintLN 'Fail'>;
10  },
11  <WriteLN <QFromString '0'>>,
12  <WriteLN <QFromString '0.0'>>,
13  <WriteLN <QFromString '10.00'>>,
14  <WriteLN <QFromString '0.10'>>,
15  <WriteLN <QFromString '.10'>>,
16  <WriteLN <QFromString '-0.0'>>,
17  <WriteLN <QFromString '-10.00'>>,
18  <WriteLN <QFromString '-0.10'>>,
19  <PrintLN <QToString 0 (1 3)>>,
20  <PrintLN <QToString 1 (1 3)>>,
21  <PrintLN <QToString 10 (1 3)>>,
22  <PrintLN <QToString 0 (-7 3)>>,
23  <PrintLN <QToString 1 (-7 3)>>,
24  <PrintLN <QToString 10 (-7 3)>>,
25  <PrintLN <QToString 0 (1 4)>>,
26  <PrintLN <QToString 1 (1 4)>>,
27  <PrintLN <QToString 10 (1 4)>>,
28  <PrintLN <QToString 0 (-7 4)>>,
29  <PrintLN <QToString 1 (-7 4)>>,
30  <PrintLN <QToString 10 (-7 4)>>;
Note: See TracBrowser for help on using the repository browser.