| 48 | |
| 49 | |
| 50 | unittest(currency32) |
| 51 | { |
| 52 | fprintf(stderr, "%s\n", currency(10000000, 0, '.', ',', '$') ); |
| 53 | fprintf(stderr, "%s\n", currency(10000000, 1, '.', ',', 'E') ); |
| 54 | fprintf(stderr, "%s\n", currency(10000000, 2, '.', ',', 'Y') ); |
| 55 | fprintf(stderr, "%s\n", currency(10000000, 3, '.', ',', '$') ); |
| 56 | fprintf(stderr, "%s\n", currency(10000000, 4, '.', ',', '$') ); |
| 57 | fprintf(stderr, "\n"); |
| 58 | |
| 59 | fprintf(stderr, "%s\n", currency(0, 2, '.', ',', '$') ); |
| 60 | fprintf(stderr, "%s\n", currency(9, 2, '.', ',', '$') ); |
| 61 | fprintf(stderr, "%s\n", currency(10, 2, '.', ',', '$') ); |
| 62 | fprintf(stderr, "%s\n", currency(99, 2, '.', ',', '$') ); |
| 63 | fprintf(stderr, "%s\n", currency(100, 2, '.', ',', '$') ); |
| 64 | fprintf(stderr, "%s\n", currency(999, 2, '.', ',', '$') ); |
| 65 | fprintf(stderr, "%s\n", currency(1000, 2, '.', ',', '$') ); |
| 66 | fprintf(stderr, "%s\n", currency(9999, 2, '.', ',', '$') ); |
| 67 | fprintf(stderr, "%s\n", currency(10000, 2, '.', ',', '$') ); |
| 68 | fprintf(stderr, "%s\n", currency(99999, 2, '.', ',', '$') ); |
| 69 | fprintf(stderr, "%s\n", currency(100000, 2, '.', ',', '$') ); |
| 70 | fprintf(stderr, "%s\n", currency(999999, 2, '.', ',', '$') ); |
| 71 | fprintf(stderr, "%s\n", currency(1000000, 2, '.', ',', '$') ); |
| 72 | fprintf(stderr, "%s\n", currency(9999999, 2, '.', ',', '$') ); |
| 73 | fprintf(stderr, "%s\n", currency(10000000, 2, '.', ',', '$') ); |
| 74 | fprintf(stderr, "%s\n", currency(99999999, 2, '.', ',', '$') ); |
| 75 | fprintf(stderr, "%s\n", currency(100000000, 2, '.', ',', '$') ); |
| 76 | fprintf(stderr, "%s\n", currency(999999999, 2, '.', ',', '$') ); |
| 77 | fprintf(stderr, "%s\n", currency(1000000000, 2, '.', ',', '$') ); |
| 78 | fprintf(stderr, "\n"); |
| 79 | |
| 80 | fprintf(stderr, "%s\n", currency(-0, 2, '.', ',', '$') ); |
| 81 | fprintf(stderr, "%s\n", currency(-9, 2, '.', ',', '$') ); |
| 82 | fprintf(stderr, "%s\n", currency(-10, 2, '.', ',', '$') ); |
| 83 | fprintf(stderr, "%s\n", currency(-99, 2, '.', ',', '$') ); |
| 84 | fprintf(stderr, "%s\n", currency(-100, 2, '.', ',', '$') ); |
| 85 | fprintf(stderr, "%s\n", currency(-999, 2, '.', ',', '$') ); |
| 86 | fprintf(stderr, "%s\n", currency(-1000, 2, '.', ',', '$') ); |
| 87 | fprintf(stderr, "%s\n", currency(-9999, 2, '.', ',', '$') ); |
| 88 | fprintf(stderr, "%s\n", currency(-10000, 2, '.', ',', '$') ); |
| 89 | fprintf(stderr, "%s\n", currency(-99999, 2, '.', ',', '$') ); |
| 90 | fprintf(stderr, "%s\n", currency(-100000, 2, '.', ',', '$') ); |
| 91 | fprintf(stderr, "%s\n", currency(-999999, 2, '.', ',', '$') ); |
| 92 | fprintf(stderr, "%s\n", currency(-1000000, 2, '.', ',', '$') ); |
| 93 | fprintf(stderr, "%s\n", currency(-9999999, 2, '.', ',', '$') ); |
| 94 | fprintf(stderr, "%s\n", currency(-10000000, 2, '.', ',', '$') ); |
| 95 | fprintf(stderr, "%s\n", currency(-99999999, 2, '.', ',', '$') ); |
| 96 | fprintf(stderr, "%s\n", currency(-100000000, 2, '.', ',', '$') ); |
| 97 | fprintf(stderr, "%s\n", currency(-999999999, 2, '.', ',', '$') ); |
| 98 | fprintf(stderr, "%s\n", currency(-1000000000, 2, '.', ',', '$') ); |
| 99 | fprintf(stderr, "\n"); |
| 100 | |
| 101 | assertEqual(0, strcmp("$ 0.00", currency(0, 2, '.', ',', '$') ) ); |
| 102 | assertEqual(0, strcmp("$ 9,999,999.99", currency(999999999, 2, '.', ',', '$') ) ); |
| 103 | assertEqual(0, strcmp("$-9,999,999.99", currency(-999999999, 2, '.', ',', '$') ) ); |
| 104 | } |
| 105 | |
| 106 | |
| 107 | unittest(currency64) |
nothing calls this directly
no test coverage detected