class TEST_ALL |
---|
**** |
________This_class_is_the_one_which_carries_out_all_of_the_individual_class ___tests.__These_are_carried_out_in_the_order_most_likely_to_reveal_faults ___which_will_affect_following_class_tests_before_that_class_is_actually ___tested.___This_necessarily_depends_on_the_library_implementation_and_may ___need_to_be_revised_if_major_implementation_changes_are_made. |
attr counter : CARD ; |
---|
**** | initialised to zero! |
attr test_count : CARD ; |
---|
**** | initialised to zero! |
attr ticker : TIMER ; |
---|
attr total_time : ELAPSED ; |
---|
attr counter : CARD ; |
---|
**** | initialised to zero! |
attr test_count : CARD ; |
---|
**** | initialised to zero! |
attr ticker : TIMER ; |
---|
attr total_time : ELAPSED ; |
---|
emit_tally( name : STR ) |
---|
**** |
________This_routine_increments_both_counter_and_tally_before_sending_the ___class_test_number_to_the_standard_error_channel.__To_avoid_this_merely ___comment_out_the_last_line! |
final_tally |
---|
**** | This routine reports the total time for all the tests to the error channel. |
main |
---|
omit_tally( name : STR ) |
---|
**** |
________This_routine_keeps_the_tally_straight_by_silently_incrementing_the ___count_for_omitted_(either_for_speed_reasons_or_because_some_test_has_not ___yet_been_implemented). |