15.4.1050  src/lib/std/src/computer-vision-unit-test.pkg

# computer-vision-unit-test.pkg 

# Compiled by:
#     src/lib/test/unit-tests.lib

# Run by:
#     src/lib/test/all-unit-tests.pkg

# Unit tests for:
#     src/lib/std/src/computer-vision.pkg

package computer_vision_unit_test {

    include unit_test;                                          # unit_test                     is from   src/lib/src/unit-test.pkg

    include computer_vision;

    name =  "src/lib/std/src/computer-vision-unit-test.pkg tests";

    fun run ()
        =
        {
            printf "\nDoing %s:\n" name;   

            my limit = 100;

            # debug_print (m, printf "%d", printf "%d");

            rng  = make_random_number_generator 0;

            one_word_int = random_int  rng;
            two_word_int = random_int  rng;

            assert (one_word_int != two_word_int);

            float = random_float  rng;
            assert (float <= 1.0);
            assert (float >= 0.0);


            summarize_unit_tests  name;
        };
};


## Code byJeff Prothero: Copyright (c) 2010-2012,
## released per terms of SMLNJ-COPYRIGHT.