JAAS::Object::Context

Session for the Object Repository.

The 'pack' directory contains sample objects used for testing.

server.perl is a simple server (no persistance).
pserver.perl is a simple persistant server... not yet implemented.

list.perl       Can be used to list contexts in the repository.  Or, if you
            give it a context ID, all locks, active objects and blocks in 
            that context.

list-test.perl    Lists all the objects, locks and blocks in TestRun.

client-test.perl  Fetches simple objects from the repository.

client-test2.perl  Fetches Increment objects from the repository, then puts
                 back.

block-test.perl   Excercises blocking of a context.

lock-torture.perl creates 50 processes that all hammer at the Increment object
    in the TestRun

    Do the following:
        perl lock-torture.perl >data &
        # wait a while, then kill the server
        sort -g | uniq -b -w 20
    to make sure that no 2 processes can have the same lock

lock-torture2.perl creates 100 processes that all hammer at the Increment
    object in individual contexts.

        perl lock-torture2.perl 
        # wait a while, then kill the server
        for n in torture* ; do 
            echo "$n: "  `sort -g $n | uniq -d | wc -l` "/" \
                `cat $n | wc -l`
        done
    to see if 2 processes managed to get the same lock.

- Learry Gagne
15/06/01

- Philip Gwyn
2001/06/20
