15.4.1360  src/lib/x-kit/tut/xkit-tut-unit-test.pkg

## xkit-tut-unit-test.pkg

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


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

stipulate
    include unit_test;                                          # unit_test             is from   src/lib/src/unit-test.pkg
    include makelib::scripting_globals;
herein

    package xkit_tut_unit_test {
        #
        name = "src/lib/x-kit/tut/xkit-tut-unit-test.pkg";

log_if = file::log_if file::compiler_logging;           # Purely for debug narration.

        fun do selfcheck
            =
            {   (selfcheck ()) ->  { passed, failed };
                #
                for (i = 0; i < passed; ++i) {   assert TRUE;    };
                for (i = 0; i < failed; ++i) {   assert FALSE;   };
            };  

        fun run ()
            =
            {   printf "\nDoing %s:\n" name;   
file::set_logger_to (file::LOG_TO_FILE "xkit-tut-unit-test.log");
log_if .{ "xkit_tut_unit_test/XYZZY/PLUGH"; };
log_if .{ "xkit_tut_unit_test: running triangle app..."; };
                do        triangle_app::selfcheck;              # triangle_app          is from   src/lib/x-kit/tut/triangle/triangle-app.pkg
log_if .{ "xkit_tut_unit_test: running plaid app..."; };
                do           plaid_app::selfcheck;              # plaid_app             is from   src/lib/x-kit/tut/plaid/plaid-app.pkg
log_if .{ "xkit_tut_unit_test: running nbody app..."; };
                do           nbody_app::selfcheck;              # nbody_app             is from   src/lib/x-kit/tut/nbody/nbody-app.pkg
log_if .{ "xkit_tut_unit_test: running calculator app..."; };
                do      calculator_app::selfcheck;              # calculator_app        is from   src/lib/x-kit/tut/calculator/calculator-app.pkg
log_if .{ "xkit_tut_unit_test: running color-mixer app..."; };
                do     color_mixer_app::selfcheck;              # color_mixer_app       is from   src/lib/x-kit/tut/color-mixer/color-mixer-app.pkg
log_if .{ "xkit_tut_unit_test: running bouncing-heads app..."; };
                do  bouncing_heads_app::selfcheck;              # bouncing_heads_app    is from   src/lib/x-kit/tut/bouncing-heads/bouncing-heads-app.pkg
log_if .{ "xkit_tut_unit_test: running arithmetic-game app..."; };
                do arithmetic_game_app::selfcheck;              # arithmetic_game_app   is from   src/lib/x-kit/tut/arithmetic-game/arithmetic-game-app.pkg
log_if .{ "xkit_tut_unit_test: running badbricks app..."; };
                do  badbricks_game_app::selfcheck;              # badbricks_game_app    is from   src/lib/x-kit/tut/badbricks-game/badbricks-game-app.pkg
log_if .{ "xkit_tut_unit_test: running show-graph app..."; };
                do      show_graph_app::selfcheck;              # show_graph_app        is from   src/lib/x-kit/tut/show-graph/show-graph-app.pkg
log_if .{ "xkit_tut_unit_test: summarizing to stdout..."; };

                summarize_unit_tests  name;
log_if .{ "xkit_tut_unit_test: Done."; };
            };
    };

end;