test/tc/qae.rb in rio-0.4.2 vs test/tc/qae.rb in rio-0.5.1

@@ -4,14 +4,15 @@
   $:.unshift File.expand_path('../lib/')
 end
 
 require 'rio'
 require 'test/unit'
-require 'test/unit/testsuite'
+#require 'test/unit/testsuite'
+require 'qpdir'
 
 class TC_RIO_qae < Test::Unit::TestCase
-  @@tdir = rio(%w/qp qae/)
+  @@tdir = rio($QPDIR,%w/qae/)
   @@once = false
 
   def smap(a) a.map { |el| el.to_s } end
   def setup
     s_dir = ''
@@ -57,11 +58,11 @@
       end
     end
   end
 
   def test_qae_fs_lines 
-    rio('qp/qae').chdir do
+    rio($QPDIR,'qae').chdir do
       begin
         begin
           ans = []
           rio('d0').files.each { |f|
             f.each { |el|
@@ -117,11 +118,11 @@
       end
     end
   end
 
   def test_qae_fs_lines_ss
-    rio('qp/qae').chdir do
+    rio($QPDIR,'qae').chdir do
       begin
         begin
           ans = []
           rio('d0').files.each { |f|
             f.each { |el|
@@ -171,11 +172,11 @@
       end
     end
   end
 
   def test_qae_chomp 
-    rio('qp/qae').chdir do
+    rio($QPDIR,'qae').chdir do
       begin
         begin
           ans = []
           rio('d0/q1').each { |el|
             ans << el 
@@ -198,11 +199,11 @@
   end
 
   def test_qae_fs_nest
     ds = ['d1/d1','d1/d2','d1/d1/q1','d1/d1/q2','d1/d2/d1','d1/d2/d1/q1','d1/d2/d1/q2','d1/d2/d2',
           'd1/d3','d1/d3/d1','d1/d3/q1','d1/d3/d1/q1','d1/d3/d1/d1']
-    rio('qp/qae').chdir do
+    rio($QPDIR,'qae').chdir do
       begin
         begin
           ans = []
           rio('d1').dirs.each { |dir|
             dir.each { |ent| 
@@ -306,11 +307,11 @@
     end
   end
 
   def test_qae_fs_all
     ds = ['d0/d1','d0/d2','d0/q1','d0/q2','d0/d1/d2','d0/d1/d2/d1','d0/d1/d2/q1','d0/d1/d2/d1/q1','d0/d1/d2/d1/q2']
-    rio('qp/qae').chdir do
+    rio($QPDIR,'qae').chdir do
       begin
         begin
           ans = []
           rio('d0').all.each { |el| ans << el }
           exp = ds.dup
@@ -398,10 +399,10 @@
         
       end
     end
   end
   def test_qae_fs
-    rio('qp/qae').chdir do
+    rio($QPDIR,'qae').chdir do
       begin
         begin
           ans = []
           rio('d0').each { |el| ans << el }
           exp = ['d0/d1','d0/d2','d0/q1','d0/q2']