DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦8be72e6df⟧ TextFile

    Length: 1805 (0x70d)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with Queue_Of_Dynamic_Items_Test, Queue_Of_Static_Items_Test,
     Set_Of_Discrete_Items_Test, Set_Of_Dynamic_Items_Test,
     Set_Of_Static_Items_Test, Stack_Of_Dynamic_Items_Test,
     Stack_Of_Static_Items_Test, Table_Of_Dyn_Keys_And_Dyn_Values_Test,
     Table_Of_Dyn_Keys_And_Stat_Values_Test,
     Table_Of_Stat_Keys_And_Dyn_Values_Test,
     Table_Of_Stat_Keys_And_Stat_Values_Test,
     Table_Of_Strings_And_Dyn_Values_Test,
     Table_Of_Strings_And_Stat_Values_Test,
     Table_Of_V_Strings_And_Dyn_Values_Test,
     Table_Of_V_Strings_And_Stat_Values_Test;
with System_Utilities, Compilation, Io, Log, Time_Utilities;
procedure All_Tests is  
    package Su renames System_Utilities;  
    package Tu renames Time_Utilities;
    Start_Cpu : Duration := Su.Cpu;
    Start_Elapsed : Duration := Su.Elapsed;
    Interval_Cpu, Interval_Elapsed : Tu.Interval;
begin
    Log.Set_Output ("logfile");
    Start_Elapsed := Su.Elapsed;
    Start_Cpu := Su.Cpu;

    Queue_Of_Dynamic_Items_Test;
    Queue_Of_Static_Items_Test;
    Set_Of_Discrete_Items_Test;
    Set_Of_Dynamic_Items_Test;
    Set_Of_Static_Items_Test;
    Stack_Of_Dynamic_Items_Test;
    Stack_Of_Static_Items_Test;
    Table_Of_Dyn_Keys_And_Dyn_Values_Test;
    Table_Of_Dyn_Keys_And_Stat_Values_Test;
    Table_Of_Stat_Keys_And_Dyn_Values_Test;
    Table_Of_Stat_Keys_And_Stat_Values_Test;
    Table_Of_Strings_And_Dyn_Values_Test;
    Table_Of_Strings_And_Stat_Values_Test;
    Table_Of_V_Strings_And_Dyn_Values_Test;
    Table_Of_V_Strings_And_Stat_Values_Test;

    Interval_Cpu := Tu.Convert (Su.Cpu - Start_Cpu);
    Interval_Elapsed := Tu.Convert (Su.Elapsed - Start_Elapsed);
    Log.Put_Line ("elapsed = " & Tu.Image (Interval_Elapsed));
    Log.Put_Line ("cputime = " & Tu.Image (Interval_Cpu));

end All_Tests;
pragma Main;