# Low-level inode tests:  can we create one, create two, delete one...

# Set up for testing (of course it should work...)
do_test {set feh [fakevfs_env_open $dir]} $TCL_OK {^fakevfs_fe\d+$}

# Try out our spiffy new commands
do_test {set test_inode_1 [$feh ino_new]} $TCL_OK {^\d+$}

# Inode 0 and lower is invalid
do_test {expr {$test_inode_1 > 0}} $TCL_OK {^1$}

# Try another inode
do_test {set test_inode_2 [$feh ino_new]} $TCL_OK {^\d+$}

# Inode 0 and lower is invalid
do_test {expr {$test_inode_2 > 0}} $TCL_OK {^1$}

# They are different inodes, right?
do_test {expr {$test_inode_1 != $test_inode_2}} $TCL_OK {^1$}

# Valid close
do_test {$feh close} $TCL_OK $empty_string