#!/usr/bin/env tclsh

catch {load ./list.so List}
catch {load ./list.dll List}

# Load an object-oriented interface
source swig_c++.tcl

new List l

for {set i 0} {$i < 1000} {incr i 1} {
    $l insert [expr {[rand] % 2000}]
}

for {set i 0} {$i < 10} {incr i 1} {
    set j [expr {[rand] % 2000}]
    set f [$l search $j]
    if {$f == 1} {
	puts "$j ... found"
    } {
	puts "$j ... not found"
    }
}

for {set i 0} {$i < 10000} {incr i 1} {
    set j [expr {[rand] % 2000}]
    $l remove $j
}

$l print

puts "Count=  [$l length_get]"

# Destroy the list
delete l