
# Test what happens if we try to get something that does not exist

package require turbine 0.0.1
adlb::init 1 1

if [ adlb::amserver ] {
    adlb::server
} else {
    set z  0
    set d0 [ adlb::unique ]
    set d1 [ adlb::unique ]
    adlb::create $d1 integer
    set d2 [ adlb::unique ]
    adlb::create $d2 integer
    adlb::store $d2 integer:25
    set d3 [ adlb::unique ]
    adlb::create $d3 integer
    adlb::store $d3 integer:35
    adlb::close $d3
    set L [ list $z $d0 $d1 $d2 $d3 ]
    foreach d $L {
        if { [ adlb::exists $d ] } {
            puts "exists: $d"
        } else {
            puts "nope: $d"
        }
    }
}

adlb::finalize
puts OK


# Test what happens if we try to get something that does not exist

package require turbine 0.0.1
adlb::init 1 1

if [ adlb::amserver ] {
    adlb::server
} else {
    set z  0
    set d0 [ adlb::unique ]
    set d1 [ adlb::unique ]
    adlb::create $d1 integer
    set d2 [ adlb::unique ]
    adlb::create $d2 integer
    adlb::store $d2 $adlb::INTEGER 25
    set d3 [ adlb::unique ]
    adlb::create $d3 integer
    adlb::store $d3 $adlb::INTEGER 35
    adlb::close $d3
    set L [ list $z $d0 $d1 $d2 $d3 ]
    foreach d $L {
        if { [ adlb::exists $d ] } {
            puts "exists: $d"
        } else {
            puts "nope: $d"
        }
    }
}

adlb::finalize
puts OK

Switch test to use new adlb::store
Switch test to use new adlb::store

git-svn-id: 4403cc1077de9de61ebbb06aa07b0a825c555f62@2624 dc4e9af1-7f46-4ead-bba6-71afc04862de
