[Push] Tests

[PerPlex Ed]

Is a database in a format of this kind usable by other people too?

<?xml version="1.0" encoding="utf-8"?>
<RandomCodeTest ImplementationName="Push/PerPlexEd" 
ImplementationVersion="23 06 2010 17:16:52" LanguageVersion="3" 
Timestamp="26 06 2010 02:36:11">
  <History>
    <Run>
      <Snapshot>
        <BooleanStack />
        <IntegerStack />
        <FloatStack />
        <NameStack />
        <CodeStack />
        <ExecStack />
      </Snapshot>
      <Program>((Code.NoOp) (Exec.Do*Range Code.Do*Range 
Env.MaxRandomFloat) (Integer.Shove (Exec.Do*Times Float.%)) (Float.+ 
(Code.Discrepancy (Boolean.FromFloat Integer.% (Float.Rot) (Code.Pop)) 
Env.MaxPointsInProgram Float.Tan) (Float.Swap (Boolean.YankDup Code.Do) 
(Code.YankDup Code.FromBoolean) (Float.Rot) ((Code.Length Float.Pop 
Code.Rot) ((Float.+) Integer.Shove) Name.RandBoundName)) ((Integer.Dup 
Code.YankDup (Integer.Min (Name.StackDepth) Name.Dup)) Integer.+ 
((Code.FromFloat (Code.FromBoolean)) Code.If)) Code.Yank) Name.Shove 
((Name.Yank) Name.YankDup) ((Code.Position Integer.Dup Exec.Do*Range 
Code.Null) ((Code.Do*Count) Integer.+) (Exec.StackDepth 
Float.FromBoolean) Integer.=) (Float.Pop))</Program>
    </Run>
    <Run>
      <Snapshot>
        <BooleanStack>true</BooleanStack>
        <IntegerStack>200</IntegerStack>
        <FloatStack>0.067967768541529722</FloatStack>
        <NameStack>$76653AD0</NameStack>
        <CodeStack />
        <ExecStack />
      </Snapshot>
      <Program>((((Name.Quote Code.Position Float.Swap Env.Types 
(Code.Extract Code.List)) Boolean.Flush Code.Null) 
(Env.MaxRandomInteger) ((Integer.Dup) (Integer.Shove) ((Code.Rand) 
(Code.Pop) Code.Do*Times (Name.Rand Exec.=) Name.Swap) Exec.Do*Times) 
Float.Rand (Name.RandBoundName (Code.FromBoolean Code.Append Integer.*) 
Float.StackDepth Boolean.Yank) Code.Do*Count) Code.Container 
((Exec.StackDepth) Name.RandBoundName) Code.NoOp)</Program>
    </Run>
    <Run>
      <Snapshot>
        <BooleanStack />
        <IntegerStack>0</IntegerStack>
        <FloatStack>0.99874998442799556</FloatStack>
        <NameStack />
        <CodeStack />
        <ExecStack />
      </Snapshot>
      <Program>((Name.Yank Exec.Do*Times ((Float.Rot) 
(Code.FromName Name.Rot) Float.Shove Float.Min (Float.Rot))) (((Float.=) Boolean.Yank) Code.Append (Boolean.=) Code.Yank) ((((Code.Do*Times) 
(Name.Shove Integer.Rot) Float.Rand) Boolean.Not) (Integer.Pop Float.+) 
Name.StackDepth) Boolean.Pop)</Program>
    </Run>

...etc.etc....

  </History>
</RandomCodeTest>