|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Alpha_Set_Script, seg_02bc7b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Testmate_Preferences;
with Test_Set_Interpreter;
with Tms;
with Log;
with Profile;
with Resolved_Name;
with Parameter_Utility;
with Predefined_Script_Conditions;
with System;
with Po_Exceptions;
with Debug_Tools;
with Alpha_String_Prolog;
with Alpha_String_Epilog;
with Basic_Alpha_Numeric_Underscore_String_Tests;
with Basic_Alpha_Numeric_String_Tests;
with Basic_Alpha_String_Tests;
with Save_Version_Information;
with Test_Invoke;
with Predefined_Script_Prolog;
with Predefined_Script_Epilog;
procedure Alpha_Set_Script
(Test_Log_Name : in String := "";
Test_Run_Name : in String := "";
Controls : in String := Testmate_Preferences.
The_Script_Execution_Control;
The_Context : in String := Testmate_Preferences.The_Test_Context;
Apply_Coverage_Analyzer : in Boolean := False) is
The_Resolved_Test_Run_Name : constant String :=
Resolved_Name ("ALPHA_SET_script", "_run", Test_Run_Name);
The_Resolved_Log_Name : constant String :=
Resolved_Name (The_Resolved_Test_Run_Name, "_log", Test_Log_Name);
Full_Test_Set_Name : constant String :=
"!USERS.TESTMATE_USER_1.TOOLS.STRING_SUPPORT.REV1_WORKING.TEST.SETS.ALPHA_SET";
Full_Script_Name : constant String :=
"!USERS.TESTMATE_USER_1.TOOLS.STRING_SUPPORT.REV1_WORKING.TEST.SCRIPTS.ALPHA_SET_script";
Simple_Script_Name : constant String := "ALPHA_SET_script";
procedure Test_Pre_Condition is
begin
null;
end Test_Pre_Condition;
function User_Test_Pre_Condition
(Condition_Name : in String;
Condition_Params : in String) return Boolean is
begin
if Condition_Name /= "" then
raise Predefined_Script_Conditions.Incompatibile_Test_Case;
end if;
return True;
end User_Test_Pre_Condition;
procedure User_Test_Prolog (Prolog_Name : in String;
Prolog_Params : in String) is
Param1 : constant String :=
Parameter_Utility.Extract_Param (Prolog_Params, 1);
begin
if Prolog_Name = "alpha_string_prolog" then
Alpha_String_Prolog (Param1);
elsif Prolog_Name /= "" then
raise Predefined_Script_Conditions.Incompatibile_Test_Case;
end if;
end User_Test_Prolog;
procedure User_Test_Epilog (Epilog_Name : in String;
Epilog_Params : in String) is
Param1 : constant String :=
Parameter_Utility.Extract_Param (Epilog_Params, 1);
begin
if Epilog_Name = "alpha_string_epilog" then
Alpha_String_Epilog (Param1);
elsif Epilog_Name /= "" then
raise Predefined_Script_Conditions.Incompatibile_Test_Case;
end if;
end User_Test_Epilog;
procedure Evaluation_Action (Eval_Name : in String;
Eval_Params : in String) is
begin
if Eval_Name /= "" then
raise Predefined_Script_Conditions.Incompatibile_Test_Case;
end if;
end Evaluation_Action;
procedure Test_Driver (Driver_Name : in String;
Driver_Params : in String) is
Param1 : constant String :=
Parameter_Utility.Extract_Param (Driver_Params, 1);
begin
if Driver_Name = "basic_alpha_numeric_underscore_string_tests" then
Basic_Alpha_Numeric_Underscore_String_Tests;
elsif Driver_Name = "basic_alpha_numeric_string_tests" then
Basic_Alpha_Numeric_String_Tests;
elsif Driver_Name = "basic_alpha_string_tests" then
Basic_Alpha_String_Tests (Param1);
elsif Driver_Name /= "" then
raise Predefined_Script_Conditions.Incompatibile_Test_Case;
end if;
end Test_Driver;
procedure Test_Case_Invoke is new Test_Invoke
(Test_Driver, Apply_Coverage_Analyzer);
procedure Alpha_Set_Script_Execution is
new Test_Set_Interpreter (Save_Version_Information =>
Save_Version_Information);
begin
Predefined_Script_Prolog (Test_Set_Name => Full_Test_Set_Name,
Test_Script_Name => Full_Script_Name,
Test_Run_Name => The_Resolved_Test_Run_Name,
Context_Name => The_Context,
Controls_Name => Controls,
Test_Log_Name => The_Resolved_Log_Name,
Apply_Coverage_Analyzer =>
Apply_Coverage_Analyzer);
Alpha_Set_Script_Execution (Full_Test_Set_Name);
Predefined_Script_Epilog;
exception
when Predefined_Script_Conditions.User_Script_Halt |
Predefined_Script_Conditions.Script_Halt |
Po_Exceptions.Reported_Error =>
Predefined_Script_Epilog;
when System.Nonexistent_Page_Error =>
Log.Put_Line
("It is likely that TestMate is not running, please verify");
when others =>
Log.Put_Line ("Unhandled Exception --> " &
Debug_Tools.Get_Raise_Location);
Predefined_Script_Epilog;
end Alpha_Set_Script;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=34 rec1=00 rec2=01 rec3=062
[0x01] rec0=21 rec1=00 rec2=02 rec3=082
[0x02] rec0=29 rec1=00 rec2=03 rec3=008
[0x03] rec0=25 rec1=00 rec2=04 rec3=01a
[0x04] rec0=19 rec1=00 rec2=05 rec3=02c
[0x05] rec0=22 rec1=00 rec2=06 rec3=000
tail 0x217249bf883f173cebc99 0x42a00088462060003