mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 04:13:46 +00:00
2bd7c5ee3e
tests/hard_coded/*.m:
Rename modules as mentioned above.
In a few cases, where the main module's name itself had a suffix,
such as "_mod_a" or "_main", remove that suffix. This entails
renaming the .exp file as well. (In some cases, this meant that
the name of a helper module was "taken over" by the main module
of the test case.)
Update all references to the moved modules.
General updates to programming style, such as
- replacing DCG notation with state var notation
- replacing (C->T;E) with (if C then T else E)
- moving pred/func declarations to just before their code
- replacing io.write/io.nl sequences with io.write_line
- replacing io.print/io.nl sequences with io.print_line
- fixing too-long lines
- fixing grammar errors in comments
tests/hard_coded/Mmakefile:
tests/hard_coded/Mercury.options:
Update all references to the moved modules.
Enable the constant_prop_int test case. The fact that it wasn't enabled
before is probably an accident. (When constant_prop_int.m was created,
the test case was added to a list in the Mmakefile, but that list
was later removed due to never being referenced.)
tests/hard_coded/constant_prop_int.{m,exp}:
Delete the calls to shift operations with negative shift amounts,
since we have added a compile-time error for these since the test
was originally created.
856 lines
28 KiB
Mathematica
856 lines
28 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module constant_prop_int.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module int.
|
|
|
|
main(!IO) :-
|
|
test_plus(!IO),
|
|
test_minus(!IO),
|
|
test_times(!IO),
|
|
test_quotient(!IO),
|
|
test_unchecked_quotient(!IO),
|
|
test_mod(!IO),
|
|
test_rem(!IO),
|
|
test_unchecked_rem(!IO),
|
|
test_left_shift(!IO),
|
|
test_unchecked_left_shift(!IO),
|
|
test_right_shift(!IO),
|
|
test_unchecked_right_shift(!IO).
|
|
|
|
:- pred test_plus(io::di, io::uo) is det.
|
|
|
|
test_plus -->
|
|
label("plus(1, 0) = "),
|
|
result(1 + 0),
|
|
label("plus(1, 1) = "),
|
|
result(1 + 1),
|
|
label("plus(1, -1) = "),
|
|
result(1 + -1),
|
|
label("plus(1, 31) = "),
|
|
result(1 + 31),
|
|
label("plus(1, -31) = "),
|
|
result(1 + -31),
|
|
label("plus(1, 2147483647) = "),
|
|
result(1 + 2147483647),
|
|
label("plus(1, -2147483648) = "),
|
|
result(1 + -2147483648),
|
|
label("plus(-1, 0) = "),
|
|
result(-1 + 0),
|
|
label("plus(-1, 1) = "),
|
|
result(-1 + 1),
|
|
label("plus(-1, -1) = "),
|
|
result(-1 + -1),
|
|
label("plus(-1, 31) = "),
|
|
result(-1 + 31),
|
|
label("plus(-1, -31) = "),
|
|
result(-1 + -31),
|
|
label("plus(-1, 2147483647) = "),
|
|
result(-1 + 2147483647),
|
|
label("plus(-1, -2147483648) = "),
|
|
result(-1 + -2147483648),
|
|
label("plus(31, 0) = "),
|
|
result(31 + 0),
|
|
label("plus(31, 1) = "),
|
|
result(31 + 1),
|
|
label("plus(31, -1) = "),
|
|
result(31 + -1),
|
|
label("plus(31, 31) = "),
|
|
result(31 + 31),
|
|
label("plus(31, -31) = "),
|
|
result(31 + -31),
|
|
label("plus(31, 2147483647) = "),
|
|
result(31 + 2147483647),
|
|
label("plus(31, -2147483648) = "),
|
|
result(31 + -2147483648),
|
|
label("plus(-31, 0) = "),
|
|
result(-31 + 0),
|
|
label("plus(-31, 1) = "),
|
|
result(-31 + 1),
|
|
label("plus(-31, -1) = "),
|
|
result(-31 + -1),
|
|
label("plus(-31, 31) = "),
|
|
result(-31 + 31),
|
|
label("plus(-31, -31) = "),
|
|
result(-31 + -31),
|
|
label("plus(-31, 2147483647) = "),
|
|
result(-31 + 2147483647),
|
|
label("plus(-31, -2147483648) = "),
|
|
result(-31 + -2147483648),
|
|
label("plus(2147483647, 0) = "),
|
|
result(2147483647 + 0),
|
|
label("plus(2147483647, 1) = "),
|
|
result(2147483647 + 1),
|
|
label("plus(2147483647, -1) = "),
|
|
result(2147483647 + -1),
|
|
label("plus(2147483647, 31) = "),
|
|
result(2147483647 + 31),
|
|
label("plus(2147483647, -31) = "),
|
|
result(2147483647 + -31),
|
|
label("plus(2147483647, 2147483647) = "),
|
|
result(2147483647 + 2147483647),
|
|
label("plus(2147483647, -2147483648) = "),
|
|
result(2147483647 + -2147483648),
|
|
label("plus(-2147483648, 0) = "),
|
|
result(-2147483648 + 0),
|
|
label("plus(-2147483648, 1) = "),
|
|
result(-2147483648 + 1),
|
|
label("plus(-2147483648, -1) = "),
|
|
result(-2147483648 + -1),
|
|
label("plus(-2147483648, 31) = "),
|
|
result(-2147483648 + 31),
|
|
label("plus(-2147483648, -31) = "),
|
|
result(-2147483648 + -31),
|
|
label("plus(-2147483648, 2147483647) = "),
|
|
result(-2147483648 + 2147483647),
|
|
label("plus(-2147483648, -2147483648) = "),
|
|
result(-2147483648 + -2147483648),
|
|
nl.
|
|
|
|
:- pred test_minus(io::di, io::uo) is det.
|
|
|
|
test_minus -->
|
|
label("minus(1, 0) = "),
|
|
result(1 - 0),
|
|
label("minus(1, 1) = "),
|
|
result(1 - 1),
|
|
label("minus(1, -1) = "),
|
|
result(1 - -1),
|
|
label("minus(1, 31) = "),
|
|
result(1 - 31),
|
|
label("minus(1, -31) = "),
|
|
result(1 - -31),
|
|
label("minus(1, 2147483647) = "),
|
|
result(1 - 2147483647),
|
|
label("minus(1, -2147483648) = "),
|
|
result(1 - -2147483648),
|
|
label("minus(-1, 0) = "),
|
|
result(-1 - 0),
|
|
label("minus(-1, 1) = "),
|
|
result(-1 - 1),
|
|
label("minus(-1, -1) = "),
|
|
result(-1 - -1),
|
|
label("minus(-1, 31) = "),
|
|
result(-1 - 31),
|
|
label("minus(-1, -31) = "),
|
|
result(-1 - -31),
|
|
label("minus(-1, 2147483647) = "),
|
|
result(-1 - 2147483647),
|
|
label("minus(-1, -2147483648) = "),
|
|
result(-1 - -2147483648),
|
|
label("minus(31, 0) = "),
|
|
result(31 - 0),
|
|
label("minus(31, 1) = "),
|
|
result(31 - 1),
|
|
label("minus(31, -1) = "),
|
|
result(31 - -1),
|
|
label("minus(31, 31) = "),
|
|
result(31 - 31),
|
|
label("minus(31, -31) = "),
|
|
result(31 - -31),
|
|
label("minus(31, 2147483647) = "),
|
|
result(31 - 2147483647),
|
|
label("minus(31, -2147483648) = "),
|
|
result(31 - -2147483648),
|
|
label("minus(-31, 0) = "),
|
|
result(-31 - 0),
|
|
label("minus(-31, 1) = "),
|
|
result(-31 - 1),
|
|
label("minus(-31, -1) = "),
|
|
result(-31 - -1),
|
|
label("minus(-31, 31) = "),
|
|
result(-31 - 31),
|
|
label("minus(-31, -31) = "),
|
|
result(-31 - -31),
|
|
label("minus(-31, 2147483647) = "),
|
|
result(-31 - 2147483647),
|
|
label("minus(-31, -2147483648) = "),
|
|
result(-31 - -2147483648),
|
|
label("minus(2147483647, 0) = "),
|
|
result(2147483647 - 0),
|
|
label("minus(2147483647, 1) = "),
|
|
result(2147483647 - 1),
|
|
label("minus(2147483647, -1) = "),
|
|
result(2147483647 - -1),
|
|
label("minus(2147483647, 31) = "),
|
|
result(2147483647 - 31),
|
|
label("minus(2147483647, -31) = "),
|
|
result(2147483647 - -31),
|
|
label("minus(2147483647, 2147483647) = "),
|
|
result(2147483647 - 2147483647),
|
|
label("minus(2147483647, -2147483648) = "),
|
|
result(2147483647 - -2147483648),
|
|
label("minus(-2147483648, 0) = "),
|
|
result(-2147483648 - 0),
|
|
label("minus(-2147483648, 1) = "),
|
|
result(-2147483648 - 1),
|
|
label("minus(-2147483648, -1) = "),
|
|
result(-2147483648 - -1),
|
|
label("minus(-2147483648, 31) = "),
|
|
result(-2147483648 - 31),
|
|
label("minus(-2147483648, -31) = "),
|
|
result(-2147483648 - -31),
|
|
label("minus(-2147483648, 2147483647) = "),
|
|
result(-2147483648 - 2147483647),
|
|
label("minus(-2147483648, -2147483648) = "),
|
|
result(-2147483648 - -2147483648),
|
|
nl.
|
|
|
|
:- pred test_times(io::di, io::uo) is det.
|
|
|
|
test_times -->
|
|
label("times(1, 0) = "),
|
|
result(1 * 0),
|
|
label("times(1, 1) = "),
|
|
result(1 * 1),
|
|
label("times(1, -1) = "),
|
|
result(1 * -1),
|
|
label("times(1, 31) = "),
|
|
result(1 * 31),
|
|
label("times(1, -31) = "),
|
|
result(1 * -31),
|
|
label("times(1, 2147483647) = "),
|
|
result(1 * 2147483647),
|
|
label("times(1, -2147483648) = "),
|
|
result(1 * -2147483648),
|
|
label("times(-1, 0) = "),
|
|
result(-1 * 0),
|
|
label("times(-1, 1) = "),
|
|
result(-1 * 1),
|
|
label("times(-1, -1) = "),
|
|
result(-1 * -1),
|
|
label("times(-1, 31) = "),
|
|
result(-1 * 31),
|
|
label("times(-1, -31) = "),
|
|
result(-1 * -31),
|
|
label("times(-1, 2147483647) = "),
|
|
result(-1 * 2147483647),
|
|
label("times(-1, -2147483648) = "),
|
|
result(-1 * -2147483648),
|
|
label("times(31, 0) = "),
|
|
result(31 * 0),
|
|
label("times(31, 1) = "),
|
|
result(31 * 1),
|
|
label("times(31, -1) = "),
|
|
result(31 * -1),
|
|
label("times(31, 31) = "),
|
|
result(31 * 31),
|
|
label("times(31, -31) = "),
|
|
result(31 * -31),
|
|
label("times(31, 2147483647) = "),
|
|
result(31 * 2147483647),
|
|
label("times(31, -2147483648) = "),
|
|
result(31 * -2147483648),
|
|
label("times(-31, 0) = "),
|
|
result(-31 * 0),
|
|
label("times(-31, 1) = "),
|
|
result(-31 * 1),
|
|
label("times(-31, -1) = "),
|
|
result(-31 * -1),
|
|
label("times(-31, 31) = "),
|
|
result(-31 * 31),
|
|
label("times(-31, -31) = "),
|
|
result(-31 * -31),
|
|
label("times(-31, 2147483647) = "),
|
|
result(-31 * 2147483647),
|
|
label("times(-31, -2147483648) = "),
|
|
result(-31 * -2147483648),
|
|
label("times(2147483647, 0) = "),
|
|
result(2147483647 * 0),
|
|
label("times(2147483647, 1) = "),
|
|
result(2147483647 * 1),
|
|
label("times(2147483647, -1) = "),
|
|
result(2147483647 * -1),
|
|
label("times(2147483647, 31) = "),
|
|
result(2147483647 * 31),
|
|
label("times(2147483647, -31) = "),
|
|
result(2147483647 * -31),
|
|
label("times(2147483647, 2147483647) = "),
|
|
result(2147483647 * 2147483647),
|
|
label("times(2147483647, -2147483648) = "),
|
|
result(2147483647 * -2147483648),
|
|
label("times(-2147483648, 0) = "),
|
|
result(-2147483648 * 0),
|
|
label("times(-2147483648, 1) = "),
|
|
result(-2147483648 * 1),
|
|
label("times(-2147483648, -1) = "),
|
|
result(-2147483648 * -1),
|
|
label("times(-2147483648, 31) = "),
|
|
result(-2147483648 * 31),
|
|
label("times(-2147483648, -31) = "),
|
|
result(-2147483648 * -31),
|
|
label("times(-2147483648, 2147483647) = "),
|
|
result(-2147483648 * 2147483647),
|
|
label("times(-2147483648, -2147483648) = "),
|
|
result(-2147483648 * -2147483648),
|
|
nl.
|
|
|
|
:- pred test_quotient(io::di, io::uo) is det.
|
|
|
|
test_quotient -->
|
|
label("quotient(1, 1) = "),
|
|
result(1 // 1),
|
|
label("quotient(1, -1) = "),
|
|
result(1 // -1),
|
|
label("quotient(1, 31) = "),
|
|
result(1 // 31),
|
|
label("quotient(1, -31) = "),
|
|
result(1 // -31),
|
|
label("quotient(1, 2147483647) = "),
|
|
result(1 // 2147483647),
|
|
label("quotient(1, -2147483648) = "),
|
|
result(1 // -2147483648),
|
|
label("quotient(-1, 1) = "),
|
|
result(-1 // 1),
|
|
label("quotient(-1, -1) = "),
|
|
result(-1 // -1),
|
|
label("quotient(-1, 31) = "),
|
|
result(-1 // 31),
|
|
label("quotient(-1, -31) = "),
|
|
result(-1 // -31),
|
|
label("quotient(-1, 2147483647) = "),
|
|
result(-1 // 2147483647),
|
|
label("quotient(-1, -2147483648) = "),
|
|
result(-1 // -2147483648),
|
|
label("quotient(31, 1) = "),
|
|
result(31 // 1),
|
|
label("quotient(31, -1) = "),
|
|
result(31 // -1),
|
|
label("quotient(31, 31) = "),
|
|
result(31 // 31),
|
|
label("quotient(31, -31) = "),
|
|
result(31 // -31),
|
|
label("quotient(31, 2147483647) = "),
|
|
result(31 // 2147483647),
|
|
label("quotient(31, -2147483648) = "),
|
|
result(31 // -2147483648),
|
|
label("quotient(-31, 1) = "),
|
|
result(-31 // 1),
|
|
label("quotient(-31, -1) = "),
|
|
result(-31 // -1),
|
|
label("quotient(-31, 31) = "),
|
|
result(-31 // 31),
|
|
label("quotient(-31, -31) = "),
|
|
result(-31 // -31),
|
|
label("quotient(-31, 2147483647) = "),
|
|
result(-31 // 2147483647),
|
|
label("quotient(-31, -2147483648) = "),
|
|
result(-31 // -2147483648),
|
|
label("quotient(2147483647, 1) = "),
|
|
result(2147483647 // 1),
|
|
label("quotient(2147483647, -1) = "),
|
|
result(2147483647 // -1),
|
|
label("quotient(2147483647, 31) = "),
|
|
result(2147483647 // 31),
|
|
label("quotient(2147483647, -31) = "),
|
|
result(2147483647 // -31),
|
|
label("quotient(2147483647, 2147483647) = "),
|
|
result(2147483647 // 2147483647),
|
|
label("quotient(2147483647, -2147483648) = "),
|
|
result(2147483647 // -2147483648),
|
|
label("quotient(-2147483648, 1) = "),
|
|
result(-2147483648 // 1),
|
|
% label("quotient(-2147483648, -1) = "),
|
|
% result(-2147483648 // -1),
|
|
label("quotient(-2147483648, 31) = "),
|
|
result(-2147483648 // 31),
|
|
label("quotient(-2147483648, -31) = "),
|
|
result(-2147483648 // -31),
|
|
label("quotient(-2147483648, 2147483647) = "),
|
|
result(-2147483648 // 2147483647),
|
|
label("quotient(-2147483648, -2147483648) = "),
|
|
result(-2147483648 // -2147483648),
|
|
nl.
|
|
|
|
:- pred test_unchecked_quotient(io::di, io::uo) is det.
|
|
|
|
test_unchecked_quotient -->
|
|
label("unchecked_quotient(1, 1) = "),
|
|
result(unchecked_quotient(1, 1)),
|
|
label("unchecked_quotient(1, -1) = "),
|
|
result(unchecked_quotient(1, -1)),
|
|
label("unchecked_quotient(1, 31) = "),
|
|
result(unchecked_quotient(1, 31)),
|
|
label("unchecked_quotient(1, -31) = "),
|
|
result(unchecked_quotient(1, -31)),
|
|
label("unchecked_quotient(1, 2147483647) = "),
|
|
result(unchecked_quotient(1, 2147483647)),
|
|
label("unchecked_quotient(1, -2147483648) = "),
|
|
result(unchecked_quotient(1, -2147483648)),
|
|
label("unchecked_quotient(-1, 1) = "),
|
|
result(unchecked_quotient(-1, 1)),
|
|
label("unchecked_quotient(-1, -1) = "),
|
|
result(unchecked_quotient(-1, -1)),
|
|
label("unchecked_quotient(-1, 31) = "),
|
|
result(unchecked_quotient(-1, 31)),
|
|
label("unchecked_quotient(-1, -31) = "),
|
|
result(unchecked_quotient(-1, -31)),
|
|
label("unchecked_quotient(-1, 2147483647) = "),
|
|
result(unchecked_quotient(-1, 2147483647)),
|
|
label("unchecked_quotient(-1, -2147483648) = "),
|
|
result(unchecked_quotient(-1, -2147483648)),
|
|
label("unchecked_quotient(31, 1) = "),
|
|
result(unchecked_quotient(31, 1)),
|
|
label("unchecked_quotient(31, -1) = "),
|
|
result(unchecked_quotient(31, -1)),
|
|
label("unchecked_quotient(31, 31) = "),
|
|
result(unchecked_quotient(31, 31)),
|
|
label("unchecked_quotient(31, -31) = "),
|
|
result(unchecked_quotient(31, -31)),
|
|
label("unchecked_quotient(31, 2147483647) = "),
|
|
result(unchecked_quotient(31, 2147483647)),
|
|
label("unchecked_quotient(31, -2147483648) = "),
|
|
result(unchecked_quotient(31, -2147483648)),
|
|
label("unchecked_quotient(-31, 1) = "),
|
|
result(unchecked_quotient(-31, 1)),
|
|
label("unchecked_quotient(-31, -1) = "),
|
|
result(unchecked_quotient(-31, -1)),
|
|
label("unchecked_quotient(-31, 31) = "),
|
|
result(unchecked_quotient(-31, 31)),
|
|
label("unchecked_quotient(-31, -31) = "),
|
|
result(unchecked_quotient(-31, -31)),
|
|
label("unchecked_quotient(-31, 2147483647) = "),
|
|
result(unchecked_quotient(-31, 2147483647)),
|
|
label("unchecked_quotient(-31, -2147483648) = "),
|
|
result(unchecked_quotient(-31, -2147483648)),
|
|
label("unchecked_quotient(2147483647, 1) = "),
|
|
result(unchecked_quotient(2147483647, 1)),
|
|
label("unchecked_quotient(2147483647, -1) = "),
|
|
result(unchecked_quotient(2147483647, -1)),
|
|
label("unchecked_quotient(2147483647, 31) = "),
|
|
result(unchecked_quotient(2147483647, 31)),
|
|
label("unchecked_quotient(2147483647, -31) = "),
|
|
result(unchecked_quotient(2147483647, -31)),
|
|
label("unchecked_quotient(2147483647, 2147483647) = "),
|
|
result(unchecked_quotient(2147483647, 2147483647)),
|
|
label("unchecked_quotient(2147483647, -2147483648) = "),
|
|
result(unchecked_quotient(2147483647, -2147483648)),
|
|
label("unchecked_quotient(-2147483648, 1) = "),
|
|
result(unchecked_quotient(-2147483648, 1)),
|
|
% label("unchecked_quotient(-2147483648, -1) = "),
|
|
% result(unchecked_quotient(-2147483648, -1)),
|
|
label("unchecked_quotient(-2147483648, 31) = "),
|
|
result(unchecked_quotient(-2147483648, 31)),
|
|
label("unchecked_quotient(-2147483648, -31) = "),
|
|
result(unchecked_quotient(-2147483648, -31)),
|
|
label("unchecked_quotient(-2147483648, 2147483647) = "),
|
|
result(unchecked_quotient(-2147483648, 2147483647)),
|
|
label("unchecked_quotient(-2147483648, -2147483648) = "),
|
|
result(unchecked_quotient(-2147483648, -2147483648)),
|
|
nl.
|
|
|
|
:- pred test_mod(io::di, io::uo) is det.
|
|
|
|
test_mod -->
|
|
label("mod(1, 1) = "),
|
|
result(mod(1, 1)),
|
|
label("mod(1, -1) = "),
|
|
result(mod(1, -1)),
|
|
label("mod(1, 31) = "),
|
|
result(mod(1, 31)),
|
|
label("mod(1, -31) = "),
|
|
result(mod(1, -31)),
|
|
label("mod(1, 2147483647) = "),
|
|
result(mod(1, 2147483647)),
|
|
label("mod(1, -2147483648) = "),
|
|
result(mod(1, -2147483648)),
|
|
label("mod(-1, 1) = "),
|
|
result(mod(-1, 1)),
|
|
label("mod(-1, -1) = "),
|
|
result(mod(-1, -1)),
|
|
label("mod(-1, 31) = "),
|
|
result(mod(-1, 31)),
|
|
label("mod(-1, -31) = "),
|
|
result(mod(-1, -31)),
|
|
label("mod(-1, 2147483647) = "),
|
|
result(mod(-1, 2147483647)),
|
|
label("mod(-1, -2147483648) = "),
|
|
result(mod(-1, -2147483648)),
|
|
label("mod(31, 1) = "),
|
|
result(mod(31, 1)),
|
|
label("mod(31, -1) = "),
|
|
result(mod(31, -1)),
|
|
label("mod(31, 31) = "),
|
|
result(mod(31, 31)),
|
|
label("mod(31, -31) = "),
|
|
result(mod(31, -31)),
|
|
label("mod(31, 2147483647) = "),
|
|
result(mod(31, 2147483647)),
|
|
label("mod(31, -2147483648) = "),
|
|
result(mod(31, -2147483648)),
|
|
label("mod(-31, 1) = "),
|
|
result(mod(-31, 1)),
|
|
label("mod(-31, -1) = "),
|
|
result(mod(-31, -1)),
|
|
label("mod(-31, 31) = "),
|
|
result(mod(-31, 31)),
|
|
label("mod(-31, -31) = "),
|
|
result(mod(-31, -31)),
|
|
label("mod(-31, 2147483647) = "),
|
|
result(mod(-31, 2147483647)),
|
|
label("mod(-31, -2147483648) = "),
|
|
result(mod(-31, -2147483648)),
|
|
label("mod(2147483647, 1) = "),
|
|
result(mod(2147483647, 1)),
|
|
label("mod(2147483647, -1) = "),
|
|
result(mod(2147483647, -1)),
|
|
label("mod(2147483647, 31) = "),
|
|
result(mod(2147483647, 31)),
|
|
label("mod(2147483647, -31) = "),
|
|
result(mod(2147483647, -31)),
|
|
label("mod(2147483647, 2147483647) = "),
|
|
result(mod(2147483647, 2147483647)),
|
|
label("mod(2147483647, -2147483648) = "),
|
|
result(mod(2147483647, -2147483648)),
|
|
label("mod(-2147483648, 1) = "),
|
|
result(mod(-2147483648, 1)),
|
|
% label("mod(-2147483648, -1) = "),
|
|
% result(mod(-2147483648, -1)),
|
|
label("mod(-2147483648, 31) = "),
|
|
result(mod(-2147483648, 31)),
|
|
label("mod(-2147483648, -31) = "),
|
|
result(mod(-2147483648, -31)),
|
|
label("mod(-2147483648, 2147483647) = "),
|
|
result(mod(-2147483648, 2147483647)),
|
|
label("mod(-2147483648, -2147483648) = "),
|
|
result(mod(-2147483648, -2147483648)),
|
|
nl.
|
|
|
|
:- pred test_rem(io::di, io::uo) is det.
|
|
|
|
test_rem -->
|
|
label("rem(1, 1) = "),
|
|
result(rem(1, 1)),
|
|
label("rem(1, -1) = "),
|
|
result(rem(1, -1)),
|
|
label("rem(1, 31) = "),
|
|
result(rem(1, 31)),
|
|
label("rem(1, -31) = "),
|
|
result(rem(1, -31)),
|
|
label("rem(1, 2147483647) = "),
|
|
result(rem(1, 2147483647)),
|
|
label("rem(1, -2147483648) = "),
|
|
result(rem(1, -2147483648)),
|
|
label("rem(-1, 1) = "),
|
|
result(rem(-1, 1)),
|
|
label("rem(-1, -1) = "),
|
|
result(rem(-1, -1)),
|
|
label("rem(-1, 31) = "),
|
|
result(rem(-1, 31)),
|
|
label("rem(-1, -31) = "),
|
|
result(rem(-1, -31)),
|
|
label("rem(-1, 2147483647) = "),
|
|
result(rem(-1, 2147483647)),
|
|
label("rem(-1, -2147483648) = "),
|
|
result(rem(-1, -2147483648)),
|
|
label("rem(31, 1) = "),
|
|
result(rem(31, 1)),
|
|
label("rem(31, -1) = "),
|
|
result(rem(31, -1)),
|
|
label("rem(31, 31) = "),
|
|
result(rem(31, 31)),
|
|
label("rem(31, -31) = "),
|
|
result(rem(31, -31)),
|
|
label("rem(31, 2147483647) = "),
|
|
result(rem(31, 2147483647)),
|
|
label("rem(31, -2147483648) = "),
|
|
result(rem(31, -2147483648)),
|
|
label("rem(-31, 1) = "),
|
|
result(rem(-31, 1)),
|
|
label("rem(-31, -1) = "),
|
|
result(rem(-31, -1)),
|
|
label("rem(-31, 31) = "),
|
|
result(rem(-31, 31)),
|
|
label("rem(-31, -31) = "),
|
|
result(rem(-31, -31)),
|
|
label("rem(-31, 2147483647) = "),
|
|
result(rem(-31, 2147483647)),
|
|
label("rem(-31, -2147483648) = "),
|
|
result(rem(-31, -2147483648)),
|
|
label("rem(2147483647, 1) = "),
|
|
result(rem(2147483647, 1)),
|
|
label("rem(2147483647, -1) = "),
|
|
result(rem(2147483647, -1)),
|
|
label("rem(2147483647, 31) = "),
|
|
result(rem(2147483647, 31)),
|
|
label("rem(2147483647, -31) = "),
|
|
result(rem(2147483647, -31)),
|
|
label("rem(2147483647, 2147483647) = "),
|
|
result(rem(2147483647, 2147483647)),
|
|
label("rem(2147483647, -2147483648) = "),
|
|
result(rem(2147483647, -2147483648)),
|
|
label("rem(-2147483648, 1) = "),
|
|
result(rem(-2147483648, 1)),
|
|
% label("rem(-2147483648, -1) = "),
|
|
% result(rem(-2147483648, -1)),
|
|
label("rem(-2147483648, 31) = "),
|
|
result(rem(-2147483648, 31)),
|
|
label("rem(-2147483648, -31) = "),
|
|
result(rem(-2147483648, -31)),
|
|
label("rem(-2147483648, 2147483647) = "),
|
|
result(rem(-2147483648, 2147483647)),
|
|
label("rem(-2147483648, -2147483648) = "),
|
|
result(rem(-2147483648, -2147483648)),
|
|
nl.
|
|
|
|
:- pred test_unchecked_rem(io::di, io::uo) is det.
|
|
|
|
test_unchecked_rem -->
|
|
label("unchecked_rem(1, 1) = "),
|
|
result(unchecked_rem(1, 1)),
|
|
label("unchecked_rem(1, -1) = "),
|
|
result(unchecked_rem(1, -1)),
|
|
label("unchecked_rem(1, 31) = "),
|
|
result(unchecked_rem(1, 31)),
|
|
label("unchecked_rem(1, -31) = "),
|
|
result(unchecked_rem(1, -31)),
|
|
label("unchecked_rem(1, 2147483647) = "),
|
|
result(unchecked_rem(1, 2147483647)),
|
|
label("unchecked_rem(1, -2147483648) = "),
|
|
result(unchecked_rem(1, -2147483648)),
|
|
label("unchecked_rem(-1, 1) = "),
|
|
result(unchecked_rem(-1, 1)),
|
|
label("unchecked_rem(-1, -1) = "),
|
|
result(unchecked_rem(-1, -1)),
|
|
label("unchecked_rem(-1, 31) = "),
|
|
result(unchecked_rem(-1, 31)),
|
|
label("unchecked_rem(-1, -31) = "),
|
|
result(unchecked_rem(-1, -31)),
|
|
label("unchecked_rem(-1, 2147483647) = "),
|
|
result(unchecked_rem(-1, 2147483647)),
|
|
label("unchecked_rem(-1, -2147483648) = "),
|
|
result(unchecked_rem(-1, -2147483648)),
|
|
label("unchecked_rem(31, 1) = "),
|
|
result(unchecked_rem(31, 1)),
|
|
label("unchecked_rem(31, -1) = "),
|
|
result(unchecked_rem(31, -1)),
|
|
label("unchecked_rem(31, 31) = "),
|
|
result(unchecked_rem(31, 31)),
|
|
label("unchecked_rem(31, -31) = "),
|
|
result(unchecked_rem(31, -31)),
|
|
label("unchecked_rem(31, 2147483647) = "),
|
|
result(unchecked_rem(31, 2147483647)),
|
|
label("unchecked_rem(31, -2147483648) = "),
|
|
result(unchecked_rem(31, -2147483648)),
|
|
label("unchecked_rem(-31, 1) = "),
|
|
result(unchecked_rem(-31, 1)),
|
|
label("unchecked_rem(-31, -1) = "),
|
|
result(unchecked_rem(-31, -1)),
|
|
label("unchecked_rem(-31, 31) = "),
|
|
result(unchecked_rem(-31, 31)),
|
|
label("unchecked_rem(-31, -31) = "),
|
|
result(unchecked_rem(-31, -31)),
|
|
label("unchecked_rem(-31, 2147483647) = "),
|
|
result(unchecked_rem(-31, 2147483647)),
|
|
label("unchecked_rem(-31, -2147483648) = "),
|
|
result(unchecked_rem(-31, -2147483648)),
|
|
label("unchecked_rem(2147483647, 1) = "),
|
|
result(unchecked_rem(2147483647, 1)),
|
|
label("unchecked_rem(2147483647, -1) = "),
|
|
result(unchecked_rem(2147483647, -1)),
|
|
label("unchecked_rem(2147483647, 31) = "),
|
|
result(unchecked_rem(2147483647, 31)),
|
|
label("unchecked_rem(2147483647, -31) = "),
|
|
result(unchecked_rem(2147483647, -31)),
|
|
label("unchecked_rem(2147483647, 2147483647) = "),
|
|
result(unchecked_rem(2147483647, 2147483647)),
|
|
label("unchecked_rem(2147483647, -2147483648) = "),
|
|
result(unchecked_rem(2147483647, -2147483648)),
|
|
label("unchecked_rem(-2147483648, 1) = "),
|
|
result(unchecked_rem(-2147483648, 1)),
|
|
% label("unchecked_rem(-2147483648, -1) = "),
|
|
% result(unchecked_rem(-2147483648, -1)),
|
|
label("unchecked_rem(-2147483648, 31) = "),
|
|
result(unchecked_rem(-2147483648, 31)),
|
|
label("unchecked_rem(-2147483648, -31) = "),
|
|
result(unchecked_rem(-2147483648, -31)),
|
|
label("unchecked_rem(-2147483648, 2147483647) = "),
|
|
result(unchecked_rem(-2147483648, 2147483647)),
|
|
label("unchecked_rem(-2147483648, -2147483648) = "),
|
|
result(unchecked_rem(-2147483648, -2147483648)),
|
|
nl.
|
|
|
|
:- pred test_left_shift(io::di, io::uo) is det.
|
|
|
|
test_left_shift -->
|
|
label("left_shift(1, 0) = "),
|
|
result(1 << 0),
|
|
label("left_shift(1, 1) = "),
|
|
result(1 << 1),
|
|
label("left_shift(1, 31) = "),
|
|
result(1 << 31),
|
|
label("left_shift(-1, 0) = "),
|
|
result(-1 << 0),
|
|
label("left_shift(-1, 1) = "),
|
|
result(-1 << 1),
|
|
label("left_shift(-1, 31) = "),
|
|
result(-1 << 31),
|
|
label("left_shift(31, 0) = "),
|
|
result(31 << 0),
|
|
label("left_shift(31, 1) = "),
|
|
result(31 << 1),
|
|
label("left_shift(31, 31) = "),
|
|
result(31 << 31),
|
|
label("left_shift(-31, 0) = "),
|
|
result(-31 << 0),
|
|
label("left_shift(-31, 1) = "),
|
|
result(-31 << 1),
|
|
label("left_shift(-31, 31) = "),
|
|
result(-31 << 31),
|
|
label("left_shift(2147483647, 0) = "),
|
|
result(2147483647 << 0),
|
|
label("left_shift(2147483647, 1) = "),
|
|
result(2147483647 << 1),
|
|
label("left_shift(2147483647, 31) = "),
|
|
result(2147483647 << 31),
|
|
label("left_shift(-2147483648, 0) = "),
|
|
result(-2147483648 << 0),
|
|
label("left_shift(-2147483648, 1) = "),
|
|
result(-2147483648 << 1),
|
|
label("left_shift(-2147483648, 31) = "),
|
|
result(-2147483648 << 31),
|
|
nl.
|
|
|
|
:- pred test_unchecked_left_shift(io::di, io::uo) is det.
|
|
|
|
test_unchecked_left_shift -->
|
|
label("unchecked_left_shift(1, 0) = "),
|
|
result(unchecked_left_shift(1, 0)),
|
|
label("unchecked_left_shift(1, 1) = "),
|
|
result(unchecked_left_shift(1, 1)),
|
|
label("unchecked_left_shift(1, 31) = "),
|
|
result(unchecked_left_shift(1, 31)),
|
|
label("unchecked_left_shift(-1, 0) = "),
|
|
result(unchecked_left_shift(-1, 0)),
|
|
label("unchecked_left_shift(-1, 1) = "),
|
|
result(unchecked_left_shift(-1, 1)),
|
|
label("unchecked_left_shift(-1, 31) = "),
|
|
result(unchecked_left_shift(-1, 31)),
|
|
label("unchecked_left_shift(31, 0) = "),
|
|
result(unchecked_left_shift(31, 0)),
|
|
label("unchecked_left_shift(31, 1) = "),
|
|
result(unchecked_left_shift(31, 1)),
|
|
label("unchecked_left_shift(31, 31) = "),
|
|
result(unchecked_left_shift(31, 31)),
|
|
label("unchecked_left_shift(-31, 0) = "),
|
|
result(unchecked_left_shift(-31, 0)),
|
|
label("unchecked_left_shift(-31, 1) = "),
|
|
result(unchecked_left_shift(-31, 1)),
|
|
label("unchecked_left_shift(-31, 31) = "),
|
|
result(unchecked_left_shift(-31, 31)),
|
|
label("unchecked_left_shift(2147483647, 0) = "),
|
|
result(unchecked_left_shift(2147483647, 0)),
|
|
label("unchecked_left_shift(2147483647, 1) = "),
|
|
result(unchecked_left_shift(2147483647, 1)),
|
|
label("unchecked_left_shift(2147483647, 31) = "),
|
|
result(unchecked_left_shift(2147483647, 31)),
|
|
label("unchecked_left_shift(-2147483648, 0) = "),
|
|
result(unchecked_left_shift(-2147483648, 0)),
|
|
label("unchecked_left_shift(-2147483648, 1) = "),
|
|
result(unchecked_left_shift(-2147483648, 1)),
|
|
label("unchecked_left_shift(-2147483648, 31) = "),
|
|
result(unchecked_left_shift(-2147483648, 31)),
|
|
nl.
|
|
|
|
:- pred test_right_shift(io::di, io::uo) is det.
|
|
|
|
test_right_shift -->
|
|
label("right_shift(1, 0) = "),
|
|
result(1 >> 0),
|
|
label("right_shift(1, 1) = "),
|
|
result(1 >> 1),
|
|
label("right_shift(1, 31) = "),
|
|
result(1 >> 31),
|
|
label("right_shift(-1, 0) = "),
|
|
result(-1 >> 0),
|
|
label("right_shift(-1, 1) = "),
|
|
result(-1 >> 1),
|
|
label("right_shift(-1, 31) = "),
|
|
result(-1 >> 31),
|
|
label("right_shift(31, 0) = "),
|
|
result(31 >> 0),
|
|
label("right_shift(31, 1) = "),
|
|
result(31 >> 1),
|
|
label("right_shift(31, 31) = "),
|
|
result(31 >> 31),
|
|
label("right_shift(-31, 0) = "),
|
|
result(-31 >> 0),
|
|
label("right_shift(-31, 1) = "),
|
|
result(-31 >> 1),
|
|
label("right_shift(-31, 31) = "),
|
|
result(-31 >> 31),
|
|
label("right_shift(2147483647, 0) = "),
|
|
result(2147483647 >> 0),
|
|
label("right_shift(2147483647, 1) = "),
|
|
result(2147483647 >> 1),
|
|
label("right_shift(2147483647, 31) = "),
|
|
result(2147483647 >> 31),
|
|
label("right_shift(-2147483648, 0) = "),
|
|
result(-2147483648 >> 0),
|
|
label("right_shift(-2147483648, 1) = "),
|
|
result(-2147483648 >> 1),
|
|
label("right_shift(-2147483648, 31) = "),
|
|
result(-2147483648 >> 31),
|
|
nl.
|
|
|
|
:- pred test_unchecked_right_shift(io::di, io::uo) is det.
|
|
|
|
test_unchecked_right_shift -->
|
|
label("unchecked_right_shift(1, 0) = "),
|
|
result(unchecked_right_shift(1, 0)),
|
|
label("unchecked_right_shift(1, 1) = "),
|
|
result(unchecked_right_shift(1, 1)),
|
|
label("unchecked_right_shift(1, 31) = "),
|
|
result(unchecked_right_shift(1, 31)),
|
|
label("unchecked_right_shift(-1, 0) = "),
|
|
result(unchecked_right_shift(-1, 0)),
|
|
label("unchecked_right_shift(-1, 1) = "),
|
|
result(unchecked_right_shift(-1, 1)),
|
|
label("unchecked_right_shift(-1, 31) = "),
|
|
result(unchecked_right_shift(-1, 31)),
|
|
label("unchecked_right_shift(31, 0) = "),
|
|
result(unchecked_right_shift(31, 0)),
|
|
label("unchecked_right_shift(31, 1) = "),
|
|
result(unchecked_right_shift(31, 1)),
|
|
label("unchecked_right_shift(31, 31) = "),
|
|
result(unchecked_right_shift(31, 31)),
|
|
label("unchecked_right_shift(-31, 0) = "),
|
|
result(unchecked_right_shift(-31, 0)),
|
|
label("unchecked_right_shift(-31, 1) = "),
|
|
result(unchecked_right_shift(-31, 1)),
|
|
label("unchecked_right_shift(-31, 31) = "),
|
|
result(unchecked_right_shift(-31, 31)),
|
|
label("unchecked_right_shift(2147483647, 0) = "),
|
|
result(unchecked_right_shift(2147483647, 0)),
|
|
label("unchecked_right_shift(2147483647, 1) = "),
|
|
result(unchecked_right_shift(2147483647, 1)),
|
|
label("unchecked_right_shift(2147483647, 31) = "),
|
|
result(unchecked_right_shift(2147483647, 31)),
|
|
label("unchecked_right_shift(-2147483648, 0) = "),
|
|
result(unchecked_right_shift(-2147483648, 0)),
|
|
label("unchecked_right_shift(-2147483648, 1) = "),
|
|
result(unchecked_right_shift(-2147483648, 1)),
|
|
label("unchecked_right_shift(-2147483648, 31) = "),
|
|
result(unchecked_right_shift(-2147483648, 31)),
|
|
nl.
|
|
|
|
:- pred label(string::in, io::di, io::uo) is det.
|
|
|
|
label(X, !IO) :-
|
|
io.write_string(X, !IO).
|
|
|
|
:- pred result(int::in, io::di, io::uo) is det.
|
|
|
|
result(X, !IO) :-
|
|
io.write_int(X, !IO),
|
|
io.nl(!IO).
|