Test Bereingt und Korrigiert
This commit is contained in:
+134
-87
@@ -118,9 +118,9 @@ MD_RetrieveMediaDefinition(
|
||||
dsply 'Retrieve completed';
|
||||
|
||||
|
||||
//---------------------------------------------------------------------
|
||||
//=====================================================================
|
||||
// Tests
|
||||
//---------------------------------------------------------------------
|
||||
//=====================================================================
|
||||
|
||||
dsply '----------------------------------------';
|
||||
dsply 'Parser result';
|
||||
@@ -166,6 +166,7 @@ else;
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
//=====================================================================
|
||||
// General - additional fields
|
||||
//=====================================================================
|
||||
@@ -230,7 +231,6 @@ else;
|
||||
endif;
|
||||
|
||||
|
||||
|
||||
//=====================================================================
|
||||
// Device 1
|
||||
//=====================================================================
|
||||
@@ -238,6 +238,7 @@ endif;
|
||||
dsply '----------------------------------------';
|
||||
dsply 'Device 1';
|
||||
|
||||
|
||||
if MediaDefinition.Device(1).DeviceName =
|
||||
OriginalDefinition.Device(1).DeviceName;
|
||||
|
||||
@@ -268,6 +269,7 @@ endif;
|
||||
|
||||
dsply 'Media File 1';
|
||||
|
||||
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.SequenceNumber =
|
||||
@@ -283,6 +285,7 @@ else;
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.StartingPositionInFile =
|
||||
@@ -306,14 +309,33 @@ if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.NumberOfVolumeIdentifiers;
|
||||
|
||||
dsply 'PASS Device 1 NumberOfVolumes';
|
||||
dsply 'PASS Device 1 Media File 1 NumberOfVolumes';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 1 NumberOfVolumes';
|
||||
dsply 'FAIL Device 1 Media File 1 NumberOfVolumes';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier =
|
||||
OriginalDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 1 Media File 1 Volume 1';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 1 Media File 1 Volume 1';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(2)
|
||||
@@ -338,6 +360,7 @@ endif;
|
||||
|
||||
dsply 'Media File 2';
|
||||
|
||||
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.SequenceNumber =
|
||||
@@ -404,47 +427,24 @@ else;
|
||||
endif;
|
||||
|
||||
|
||||
//=====================================================================
|
||||
// Device 1 / Volume 1
|
||||
//=====================================================================
|
||||
|
||||
dsply 'Volume 1';
|
||||
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier =
|
||||
OriginalDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 1 Volume 1';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 1 Volume 1';
|
||||
|
||||
endif;
|
||||
if MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.MediaFile(2)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier =
|
||||
OriginalDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.MediaFile(2)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 1 Media File 1 Volume 2';
|
||||
dsply 'PASS Device 1 Media File 2 Volume 2';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 1 Media File 1 Volume 2';
|
||||
dsply 'FAIL Device 1 Media File 2 Volume 2';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
|
||||
//=====================================================================
|
||||
// Device 2
|
||||
//=====================================================================
|
||||
@@ -452,6 +452,7 @@ endif;
|
||||
dsply '----------------------------------------';
|
||||
dsply 'Device 2';
|
||||
|
||||
|
||||
if MediaDefinition.Device(2).DeviceName =
|
||||
OriginalDefinition.Device(2).DeviceName;
|
||||
|
||||
@@ -482,6 +483,7 @@ endif;
|
||||
|
||||
dsply 'Media File 1';
|
||||
|
||||
|
||||
if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.SequenceNumber =
|
||||
@@ -489,14 +491,15 @@ if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.SequenceNumber;
|
||||
|
||||
dsply 'PASS Device 2 SequenceNumber';
|
||||
dsply 'PASS Device 2 Media File 1 SequenceNumber';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 2 SequenceNumber';
|
||||
dsply 'FAIL Device 2 Media File 1 SequenceNumber';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.StartingPositionInFile =
|
||||
@@ -504,11 +507,11 @@ if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.StartingPositionInFile;
|
||||
|
||||
dsply 'PASS Device 2 StartingPositionInFile';
|
||||
dsply 'PASS Device 2 Media File 1 StartingPositionInFile';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 2 StartingPositionInFile';
|
||||
dsply 'FAIL Device 2 Media File 1 StartingPositionInFile';
|
||||
|
||||
endif;
|
||||
|
||||
@@ -520,14 +523,33 @@ if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.NumberOfVolumeIdentifiers;
|
||||
|
||||
dsply 'PASS Device 2 NumberOfVolumes';
|
||||
dsply 'PASS Device 2 Media File 1 NumberOfVolumes';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 2 NumberOfVolumes';
|
||||
dsply 'FAIL Device 2 Media File 1 NumberOfVolumes';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier =
|
||||
OriginalDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 2 Media File 1 Volume 1';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 2 Media File 1 Volume 1';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(2)
|
||||
@@ -537,11 +559,11 @@ if MediaDefinition.Device(2)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 1 Media File 1 Volume 2';
|
||||
dsply 'PASS Device 2 Media File 1 Volume 2';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 1 Media File 1 Volume 2';
|
||||
dsply 'FAIL Device 2 Media File 1 Volume 2';
|
||||
|
||||
endif;
|
||||
|
||||
@@ -552,6 +574,7 @@ endif;
|
||||
|
||||
dsply 'Media File 2';
|
||||
|
||||
|
||||
if MediaDefinition.Device(2)
|
||||
.MediaFile(2)
|
||||
.SequenceNumber =
|
||||
@@ -627,37 +650,19 @@ if MediaDefinition.Device(2)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 1 Media File 1 Volume 2';
|
||||
dsply 'PASS Device 2 Media File 2 Volume 2';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 1 Media File 1 Volume 2';
|
||||
|
||||
endif;
|
||||
//=====================================================================
|
||||
// Device 2 / Volume 1
|
||||
//=====================================================================
|
||||
|
||||
dsply 'Volume 1';
|
||||
|
||||
if MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier =
|
||||
OriginalDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier;
|
||||
|
||||
dsply 'PASS Device 2 Volume 1';
|
||||
|
||||
else;
|
||||
|
||||
dsply 'FAIL Device 2 Volume 1';
|
||||
dsply 'FAIL Device 2 Media File 2 Volume 2';
|
||||
|
||||
endif;
|
||||
|
||||
|
||||
//=====================================================================
|
||||
// Test completed
|
||||
//=====================================================================
|
||||
|
||||
dsply '----------------------------------------';
|
||||
dsply 'Parser test completed';
|
||||
dsply '----------------------------------------';
|
||||
@@ -680,12 +685,20 @@ return;
|
||||
// 2 Devices
|
||||
//
|
||||
// Device 1
|
||||
// 1 Media File
|
||||
// Media File 1
|
||||
// DAK066
|
||||
// DAK067
|
||||
// Media File 2
|
||||
// DAK079
|
||||
// DAK080
|
||||
//
|
||||
// Device 2
|
||||
// 1 Media File
|
||||
// DAK079
|
||||
// Media File 1
|
||||
// DAK089
|
||||
// DAK090
|
||||
// Media File 2
|
||||
// DAK091
|
||||
// DAK092
|
||||
//
|
||||
//=====================================================================
|
||||
|
||||
@@ -737,6 +750,11 @@ dcl-proc BuildTestDefinition;
|
||||
MediaDefinition.Device(1).NumberOfMediaFiles =
|
||||
2;
|
||||
|
||||
|
||||
//---------------------------------------------------------------
|
||||
// Device 1 / Media File 1
|
||||
//---------------------------------------------------------------
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.SequenceNumber =
|
||||
@@ -755,41 +773,46 @@ dcl-proc BuildTestDefinition;
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier = 'DAK066';
|
||||
.VolumeIdentifier =
|
||||
'DAK066';
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier = 'DAK067';
|
||||
.VolumeIdentifier =
|
||||
'DAK067';
|
||||
|
||||
|
||||
//---------------------------------------------------------------
|
||||
// Device 1 / Media File 2
|
||||
//---------------------------------------------------------------
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.SequenceNumber = 1;
|
||||
.SequenceNumber =
|
||||
1;
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.StartingPositionInFile = *ALL'0';
|
||||
.StartingPositionInFile =
|
||||
*ALL'0';
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.NumberOfVolumeIdentifiers = 2;
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.NumberOfVolumeIdentifiers = 2;
|
||||
.NumberOfVolumeIdentifiers =
|
||||
2;
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier = 'DAK079';
|
||||
.VolumeIdentifier =
|
||||
'DAK079';
|
||||
|
||||
MediaDefinition.Device(1)
|
||||
.MediaFile(2)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier = 'DAK080';
|
||||
|
||||
|
||||
.VolumeIdentifier =
|
||||
'DAK080';
|
||||
|
||||
|
||||
//---------------------------------------------------------------
|
||||
@@ -802,6 +825,11 @@ dcl-proc BuildTestDefinition;
|
||||
MediaDefinition.Device(2).NumberOfMediaFiles =
|
||||
2;
|
||||
|
||||
|
||||
//---------------------------------------------------------------
|
||||
// Device 2 / Media File 1
|
||||
//---------------------------------------------------------------
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.SequenceNumber =
|
||||
@@ -814,33 +842,52 @@ dcl-proc BuildTestDefinition;
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.NumberOfVolumeIdentifiers = 2;
|
||||
.NumberOfVolumeIdentifiers =
|
||||
2;
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier = 'DAK089';
|
||||
.VolumeIdentifier =
|
||||
'DAK089';
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(1)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier = 'DAK090';
|
||||
.VolumeIdentifier =
|
||||
'DAK090';
|
||||
|
||||
|
||||
//---------------------------------------------------------------
|
||||
// Device 2 / Media File 2
|
||||
//---------------------------------------------------------------
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(2)
|
||||
.NumberOfVolumeIdentifiers = 2;
|
||||
.SequenceNumber =
|
||||
1;
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(2)
|
||||
.StartingPositionInFile =
|
||||
*ALL'0';
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(2)
|
||||
.NumberOfVolumeIdentifiers =
|
||||
2;
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(2)
|
||||
.VolumeIdentifier(1)
|
||||
.VolumeIdentifier = 'DAK091';
|
||||
.VolumeIdentifier =
|
||||
'DAK091';
|
||||
|
||||
MediaDefinition.Device(2)
|
||||
.MediaFile(2)
|
||||
.VolumeIdentifier(2)
|
||||
.VolumeIdentifier = 'DAK092';
|
||||
|
||||
.VolumeIdentifier =
|
||||
'DAK092';
|
||||
|
||||
|
||||
end-proc;
|
||||
Reference in New Issue
Block a user