DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »TESTOPT.PAS«

└─⟦5e7f516ab⟧ Bits:30009789/_.ft.Ibm2.50007345.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »TESTOPT.PAS« 
└─⟦66c279d1a⟧ Bits:30009789/_.ft.Ibm2.50007355.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »TESTOPT.PAS« 

TextFile

(******************************************************************************)

(* This include file defines the constructs used for program testing. *)

TYPE
   test_option_base_type = (t_0, t_1, t_2, t_3, t_4, t_5, t_6, t_7
                      ,t_8, t_9, t_10,t_11,t_12,t_13,t_14,t_15
                      ,t_16,t_17,t_18,t_19,t_20,t_21,t_22,t_23
                      ,t_24,t_25,t_26,t_27,t_28,t_29,t_30,t_31
                      );
CONST
   max_test_option_number = t_15;

TYPE
   test_option_type =t_0..max_test_option_number;
   test_option_set_type = SET OF test_option_type;

VAR
   test_options: test_option_set_type;
   test_global: boolean;

FUNCTION test(list: test_option_set_type): boolean;

  BEGIN
   test := list * test_options <> (..)
  END;

PROCEDURE test_init(VAR in_file,
                        out_file: text
                   );

   VAR i: test_option_type;
       ch: char;
       skip: boolean;

  BEGIN
   writeln(out_file, '(* set      - skip)');
   skip := false;
   test_options := (..);
   FOR i:= t_0 TO max_test_option_number DO
      IF not skip THEN
        BEGIN
         write(out_file, 'set option ',ord(i),'? >');
         ch := '@';
         read(in_file,ch);
         IF ch in (.'*','-'.) THEN
            skip := (ch = '-')
         ELSE
            test_options := test_options + (.i.);
        END
  END;


«eof»