⍝ Timing tests:

⍝   Set [loops] and [rows] to suit your machine:

    getenv←{⍎⊃(0=⎕nc ⍵)↓ ⍵ '⍺'}                 ⍝ get environment variable.

    loops ← 1000 getenv 'loops'                 ⍝ default 1000 loops.
    rows  ← 1000 getenv 'rows'                  ⍝ default 1000-row table.

    do←{{} test ⍵ {⍺} ⎕←'    ',⍵ {⍺} ⎕wa}       ⍝ time script ⍵.

    ⎕←''
    ⎕←'loops: ',loops
    ⎕←'rows:  ',rows
    ⎕←''

    ⎕←'Get/put simple tables:'
    nest←0
    do'get'                     ⍝ simple get.
    do'put'                     ⍝ simple put.
    ⎕←''

    ⎕←'Get/put nested tables:'
    nest←1
    do'get'                     ⍝ nested get.
    do'put'                     ⍝ nested put.
    ⎕←''

    ⎕←'Miscellaneous:'
    do'open'                    ⍝ table open.
    do'append_retain'           ⍝ append / retain.
    do'create_remove'           ⍝ create / remove.
⍝   
⍝   Back to: Contents