symlink1.rb in rio-0.5.1

- old
+ new

@@ -4,18 +4,19 @@
   $:.unshift File.expand_path('../lib/')
 end
 
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+require 'qpdir'
+#require 'test/unit/testsuite'
 
 class TC_RIO_symlink1 < Test::Unit::TestCase
   def assert!(a,msg="negative assertion")
     assert((!(a)),msg)
   end
   def smap(a) a.map { |el| el.to_s } end
-  def tdir() rio(%w/qp symlink1/) end
+  def tdir() rio($QPDIR,%w/symlink1/) end
   def mkafile(*args)
     file = rio(*args)
     file < (0..1).map { |i| "L#{i}:#{file.to_s}\n" }
     file
   end
@@ -74,12 +75,12 @@
     link.stat
     assert(link.open?)
     assert_equal(lines[3],link.getrec)
 
     link.delete
-    assert(link.closed?)
     assert!(link.exist?)
     assert!(link.symlink?)
+    assert(link.closed?)
 
     rio('..').chdir
   end
   def test_readlink
     rio('readlink').delete!.mkpath.chdir