Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • tests/rational.cfa

    rd30804a rf00b2c2c  
    1010// Created On       : Mon Mar 28 08:43:12 2016
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Tue Jul 20 18:13:40 2021
    13 // Update Count     : 107
     12// Last Modified On : Sat Feb  8 18:46:23 2020
     13// Update Count     : 86
    1414//
    1515
     
    2626        sout | "constructor";
    2727        RatInt a = { 3 }, b = { 4 }, c, d = 0, e = 1;
    28         sout | "a : " | a | "b : " | b | "c : " | c | "d : " | d | "e : " | e;
     28        sout | a | b | c | d | e;
    2929
    3030        a = (RatInt){ 4, 8 };
    3131        b = (RatInt){ 5, 7 };
    32         sout | "a : " | a | "b : " | b;
     32        sout | a | b;
    3333        a = (RatInt){ -2, -3 };
    3434        b = (RatInt){ 3, -2 };
    35         sout | "a : " | a | "b : " | b;
     35        sout | a | b;
    3636        a = (RatInt){ -2, 3 };
    3737        b = (RatInt){ 3, 2 };
    38         sout | "a : " | a | "b : " | b;
    39         sout | nl;
     38        sout | a | b;
    4039
    41         sout | "comparison";
     40        sout | "logical";
    4241        a = (RatInt){ -2 };
    4342        b = (RatInt){ -3, 2 };
    44         sout | "a : " | a | "b : " | b;
    45         sout | "a == 0 : " | a == (Rational(int)){0}; // FIX ME
    46         sout | "a == 1 : " | a == (Rational(int)){1}; // FIX ME
    47         sout | "a != 0 : " | a != 0;
    48         sout | "! a : " | ! a;
    49         sout | "a != b : " | a != b;
    50         sout | "a <  b : " | a <  b;
    51         sout | "a <=  b : " | a <= b;
    52         sout | "a >  b : " | a >  b;
    53         sout | "a >=  b : " | a >= b;
    54         sout | nl;
     43        sout | a | b;
     44//      sout | a == 1; // FIX ME
     45        sout | a != b;
     46        sout | a <  b;
     47        sout | a <= b;
     48        sout | a >  b;
     49        sout | a >= b;
    5550
    5651        sout | "arithmetic";
    57         sout | "a : " | a | "b : " | b;
    58         sout | "a + b : " | a + b;
    59         sout | "a += b : " | (a += b);
    60         sout | "++a : " | ++a;
    61         sout | "a++ : " | a++;
    62         sout | "a : " | a;
    63         sout | "a - b : " | a - b;
    64         sout | "a -= b : " | (a -= b);
    65         sout | "--a : " | --a;
    66         sout | "a-- : " | a--;
    67         sout | "a : " | a;
    68         sout | "a * b : " | a * b;
    69         sout | "a / b : " | a / b;
    70         sout | "a \\ 2 : " | a \ 2u | "b \\ 2 : " | b \ 2u;
    71         sout | "a \\ -2 : " | a \ -2 | "b \\ -2 : " | b \ -2;
    72         sout | nl;
     52        sout | a | b;
     53        sout | a + b;
     54        sout | a - b;
     55        sout | a * b;
     56        sout | a / b;
     57//      sout | a \ 2 | b \ 2; // FIX ME
     58//      sout | a \ -2 | b \ -2;
    7359
    7460        sout | "conversion";
     
    8268        sout | narrow( 0.14285714285714, 16 );
    8369        sout | narrow( 3.14159265358979, 256 );
    84         sout | nl;
    8570
    86         // sout | "decompose";
    87         // int n, d;
    88         // [n, d] = a;
    89         // sout | a | n | d;
     71        sout | "decompose";
     72        int n, d;
     73//      [n, d] = a;
     74//      sout | a | n | d;
    9075
    9176        sout | "more tests";
Note: See TracChangeset for help on using the changeset viewer.