vorax 0.4.2 → 5.0

data/spec/sql/drop_user.sql

@@ -1,10 +0,0 @@
-set verify off
-set feedback off
-
-prompt Dropping VORAX_TEST user...
-
-drop user vorax_test cascade;
-
-prompt Done.
-
-quit

data/spec/sql/muci.spc

@@ -1,26 +0,0 @@
-create or replace package muci as
-  
-  MY_CONSTANT1 constant varchar2(100) := 'abc';
-  MY_CONSTANT2 constant integer := 10;
-
-  ex_no_data_found exception;
-  pragma exception_init(ex_no_data_found, -20000);
-
-  ex_custom exception;
-  pragma exception_init(ex_custom, -20001);
-
-  cursor my_cursor is
-    select * from user_tables;
-
-  type population_type is table of varchar2(100);
-
-  g_var1 integer;
-  g_var2 varchar2(100) := 'xyz';
-  g_var3 dual.dummy%type;
-  g_var4 all_objects%rowtype;
-
-  procedure my_proc(p1 integer);
-  function my_func(param1 varchar2, param2 boolean := true) return boolean;
-
-end;
-/

data/spec/sql/setup_user.sql

@@ -1,22 +0,0 @@
-set verify off
-set feedback off
-
-prompt Create VORAX_TEST user
-
-grant create session, 
-      create table, 
-      create view,
-      create sequence,
-      create procedure,
-      create type,
-      create synonym,
-      unlimited tablespace
-   to vorax_test identified by xxx;
-
-grant select on v_$sesstat to vorax_test;
-grant select on v_$statname to vorax_test;
-grant select on v_$mystat to vorax_test;
-
-prompt Done.
-
-quit

data/spec/sql/test.fnc

@@ -1,12 +0,0 @@
-create or replace function test return boolean as
-
-  l_local varchar2(100);
-
-	procedure muci as
-	begin
-		null;
-	end;
-
-begin
-	null;
-end;

data/spec/sql/test.pkg

@@ -1,83 +0,0 @@
-create or replace package test as
-
-  g_var varchar2(100);
-
-  procedure test(p1 integer);
-  function muci(x varchar2, y clob) return boolean;
-
-end test;
-/
-
-create or replace package body test as
-
-  lg_var_private varchar2(100);
-  
-  procedure private_proc(p integer) as
-
-    l_var varchar2(100);
-
-    /* local function */
-    function abc return boolean as
-    begin
-      return true;
-    end;
-    
-    procedure xyz as
-    begin
-      null;
-    end;
-
-  begin
-    l_var := 'abc';
-    for x in (select * from v$session) loop
-      dbms_output.put_line(x.);
-      if x.dummy = 'X' then
-        dbms_output.put_line('Great!');
-      end if;
-      if 1 = 0 then
-        if 1 = 1 then
-          for y in (select * from cat) loop
-            dbms_output.put_line(y.table_name);
-            dbms_output.put_line('------------------------------');
-          end loop;
-          dbms_output.put_line('not here ever!');
-        end if;
-        if 1 = 0 then
-          dbms_output.put_line('OMG!');
-        end if;
-      end if;
-      null;
-    end loop;
-    select dummy into l_var from dual;
-    if l_var is not null then
-      dbms_output.put_line('yessss baby!');
-    end if;
-    dbms_output.put_line('a loop is following');
-    loop
-      exit when l_var = 'X';
-      dbms_output.put_line('should not be here');
-    end loop;
-    dbms_output.put_line('that''s all folks!');
-  end;
-
-  procedure test(p1 integer) as
-  begin
-    dbms_output.put_line('just a test');
-    begin
-      null;
-    exception
-      when others then
-        null;
-    end;
-  end;
-
-  function muci(x varchar2, y clob) return boolean as
-  begin
-    return false;
-  end;
-
-begin
-  g_var := 'test';
-end test;
-/
-

data/spec/sqlplus_spec.rb

@@ -1,52 +0,0 @@
-# encoding: UTF-8
-
-include Vorax
-
-describe 'sqlplus' do
-
-  before(:each) do# {{{
-    @sp = Sqlplus.new('sqlplus')
-    @prep = [VORAX_CSTR, 
-             "set tab off", 
-             "set linesize 10000", 
-             "set echo off",
-             "set pause off",
-             "set define &",
-             "set termout on",
-             "set verify off",
-             "set pagesize 4"].join("\n")
-    @result = ""
-  end# }}}
-
-  it 'should work with utf8' do# {{{
-    @sp.exec('select name from employees where id=1;', :prep => @prep + "\ncolumn name format a20")
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = "
-SQL> 
-NAME
---------------------
-Tică Șerban
-
-SQL> "
-    @result.should eq(expected)
-  end# }}}
-
-  it 'should work with substitution variables' do# {{{
-    begin
-      pack_file = Tempfile.new(['vorax', '.sql'])
-      @sp.exec("accept var prompt \"Enter var: \"\nprompt &var", :prep => @prep, :pack_file => pack_file.path)
-      Timeout::timeout(10) {
-        @result << @sp.read_output(32767) while @result !~ /Enter var: \z/
-        @sp.send_text("muci\n")
-        @result << @sp.read_output(32767) while @result !~ /muci\n\z/
-      }
-    ensure
-      pack_file.unlink
-    end
-  end# }}}
-
-  after(:each) do# {{{
-    @sp.terminate
-  end# }}}
-
-end

data/spec/stmt_inspector_spec.rb

@@ -1,96 +0,0 @@
-# encoding: UTF-8
-
-include Vorax
-include Parser
-
-describe 'stmt_inspector' do
-
-	it 'should work with delete statements' do
-    text = "\n      delete from bskcmptre d where itmidn = d.\n    end loop;"
-    inspector = StmtInspector.new(text)
-    inspector.find_alias('d', 0).columns.should == ['bskcmptre.*']
-	end
-
-	it 'should work with hierarchical queries' do
-		text = "select * from (select level as lvl, bskcmptre_tbl.*\n                       from bskcmptre_tbl\n                      start with itmidn = pi_nodidn\n                     connect by prior itmidn = bskprnidn\n                      order by itmidn desc) v_crtrec"
-    inspector = StmtInspector.new(text)
-    inspector.find_alias('v_crtrec', 0).columns.should == ["lvl", "bskcmptre_tbl.*"]
-	end
-
-  it 'should work with a complex query' do# {{{
-    text = '
-      with 
-        tab as (select * from dba_users), 
-        t2 as (select * from v$session) 
-      select d.*, c.table_name
-        from sys.dual  d  inner join
-             (select c. from cat c) c on (d.c = c.c) outer join
-             dba_tables on (x=y)
-      union
-      select t.*, x
-        from muci t, buci 
-      where 1=2;
-    '
-    #puts text
-    inspector = StmtInspector.new(text)
-    #pp inspector.data_source
-    inspector.data_source.size.should == 7
-    inspector.data_source.should include(ExprRef.new("select * from dba_users", (29..51), "tab"))
-    inspector.data_source.should include(ExprRef.new("select * from v$session", (71..93), "t2"))
-    inspector.data_source.should include(TableRef.new("sys.dual", "d"));
-    inspector.data_source.should include(ExprRef.new("select c. from cat c", (179..198), 'c'));
-    inspector.data_source.should include(TableRef.new("dba_tables", nil));
-    inspector.data_source.should include(TableRef.new("muci", "t"));
-    inspector.data_source.should include(TableRef.new("buci", nil));
-    inspector.query_fields.should eq(["d.*", "c.table_name"])
-  end# }}}
-
-  it 'should get alias on an inner context' do# {{{
-    text = '
-      with 
-        tab as (select * from dba_users), 
-        t2 as (select * from v$session) 
-      select d.*, c.table_name
-        from sys.dual  d  inner join
-             (select * from (select * from cat) c) c on (d.c = c.c) outer join
-             dba_tables on (x=y)
-      union
-      select t.*, x
-        from muci t, buci 
-      where 1=2;
-    '
-    inspector = StmtInspector.new(text)
-    ds = inspector.data_source(186);
-    ds.size.should == 8
-    ds.should include(ExprRef.new("select * from cat", (15..31), "c"))
-    ds.should include(ExprRef.new("select * from dba_users", (29..51), "tab"))
-    ds.should include(ExprRef.new("select * from v$session", (71..93), "t2"))
-    ds.should include(TableRef.new("sys.dual", "d"));
-    ds.should include(ExprRef.new("select * from (select * from cat) c", (179..213), 'c'));
-    ds.should include(TableRef.new("dba_tables", nil));
-    ds.should include(TableRef.new("muci", "t"));
-    ds.should include(TableRef.new("buci", nil));
-  end# }}}
-
-  it 'should get columns for the provided alias' do# {{{
-    text = '
-      with 
-        tab as (select * from (select user_id, user_name, password, x.* from dba_users, (select c1, c2, from dual) x)), 
-        t2 as (select * from v$session) 
-      select d.*, c.table_name
-        from sys.dual  d  inner join
-             (select * from (select * from cat) c) c on (d.c = c.c) outer join
-             dba_tables on (x=y)
-      union
-      select t.*, x.*
-        from muci t, buci x
-      where 1=2;
-    '
-    inspector = StmtInspector.new(text)
-    inspector.find_alias('x', 0).columns.should eq(["buci.*"])
-    inspector.find_alias('x', 63).columns.should eq(["c1", "c2"])
-    inspector.find_alias('tab', 0).columns.should eq(["user_id", "user_name", "password", "c1", "c2"])
-  end# }}}
-
-end
-

data/spec/tablezip_spec.rb

@@ -1,111 +0,0 @@
-# encoding: UTF-8
-
-include Vorax
-
-describe 'tablezip layout' do
-
-  before(:each) do# {{{
-    @sp = Sqlplus.new('sqlplus')
-    @sp.default_convertor = :tablezip
-    @prep = [VORAX_CSTR, 
-             "set tab off", 
-             "set linesize 10000", 
-             "set markup html on", 
-             "set echo off",
-             "set pause off",
-             "set define &",
-             "set termout on",
-             "set verify off",
-             "set pagesize 4"].join("\n")
-    @result = ""
-  end# }}}
-
-  it 'should work with multiple statements' do# {{{
-    @sp.exec("select * from dual;\nselect * from departments where id <= 2;", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
-DUM
----
-X  
-
-SQL>
-
-ID NAME        DESCRIPTION                        
--- ----------- -----------------------------------
- 1 Bookkeeping This department is responsible for:
-               - financial reporting              
-               - analysis                         
-               - other boring tasks               
- 2 Marketing                                      
-
-SQL>
-OUTPUT
-    #puts @result
-    @result.should eq(expected)
-  end# }}}
-
-  it 'should work with multi line records' do# {{{
-    @sp.exec("select * from departments where id <= 10;", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
-ID NAME             DESCRIPTION                        
--- ---------------- -----------------------------------
- 1 Bookkeeping      This department is responsible for:
-                    - financial reporting              
-                    - analysis                         
-                    - other boring tasks               
- 2 Marketing                                           
- 3 Deliveries                                          
- 4 CRM                                                 
-
-ID NAME             DESCRIPTION                        
--- ---------------- -----------------------------------
- 5 Legal Stuff                                         
- 6 Management       The bad guys department            
- 7 Cooking                                             
- 8 Public Relations                                    
-
-ID NAME             DESCRIPTION                        
--- ---------------- -----------------------------------
- 9 Aquisitions                                         
-10 Cleaning                                            
-
-10 rows selected.
-
-SQL>
-OUTPUT
-    @result.should eq(expected)
-  end# }}}
-
-it 'should work with accept prompts' do# {{{
-  begin
-    pack_file = Tempfile.new(['vorax', '.sql'])
-    @sp.exec("accept var prompt \"Enter var: \"\nprompt &var", :prep => @prep, :pack_file => pack_file.path)
-    Timeout::timeout(10) {
-      @result << @sp.read_output(32767) while @result !~ /Enter var:\z/
-      @sp.send_text("muci\n")
-      @result << @sp.read_output(32767) while @result !~ /muci\n\z/
-    }
-  ensure
-    pack_file.unlink
-  end
-end# }}}
-
-it 'should work with <pre> tags' do# {{{
-    @sp.exec("set autotrace traceonly explain\nselect * from dual;", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    @result.should match(/SELECT STATEMENT/)
-end# }}}
-
-  after(:each) do# {{{
-    @sp.terminate
-  end# }}}
-
-end
-

data/spec/vertical_spec.rb

@@ -1,150 +0,0 @@
-# encoding: UTF-8
-
-include Vorax
-
-describe 'vertical layout' do
-
-  before(:each) do# {{{
-    @sp = Sqlplus.new('sqlplus')
-    @sp.default_convertor = :vertical
-    @prep = [VORAX_CSTR, 
-             "set tab off", 
-             "set linesize 10000", 
-             "set markup html on", 
-             "set echo off",
-             "set pause off",
-             "set define &",
-             "set termout on",
-             "set verify off",
-             "set pagesize 4"].join("\n")
-    @result = ""
-  end# }}}
-
-  it 'should work with pagesize=0' do# {{{
-    @sp.exec("select * from departments where id<=3;", :prep => @prep + "\nset pagesize 0")
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
- : 1
- : Bookkeeping
- : This department is responsible for:
-   - financial reporting
-   - analysis
-   - other boring tasks
-------------------------------------------------------------
- : 2
- : Marketing
- :  
-------------------------------------------------------------
- : 3
- : Deliveries
- :  
-------------------------------------------------------------
-
-SQL>
-OUTPUT
-    @result.should eq(expected)
-  end# }}}
-
-  it 'should work with unicode special chars' do# {{{
-    @sp.exec("select * from employees where id=1;", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
-ID            : 1
-NAME          : Tică Șerban
-SALARY        : 570
-DEPARTMENT_ID : 1
-------------------------------------------------------------
-
-SQL>
-OUTPUT
-    #puts @result
-    @result.should eq(expected)
-  end# }}}
-
-  it 'should work with one single line record' do# {{{
-    @sp.exec("select * from departments where id=2;", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
-ID          : 2
-NAME        : Marketing
-DESCRIPTION :  
-------------------------------------------------------------
-
-SQL>
-OUTPUT
-    @result.should eq(expected)
-  end# }}}
-
-  it 'should work with one multiline record' do# {{{
-    @sp.exec("select * from departments where id=1;", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
-ID          : 1
-NAME        : Bookkeeping
-DESCRIPTION : This department is responsible for:
-              - financial reporting
-              - analysis
-              - other boring tasks
-------------------------------------------------------------
-
-SQL>
-OUTPUT
-    @result.should eq(expected)
-  end# }}}
-
-  it 'should work with multiple lines' do# {{{
-    @sp.exec("select * from departments where id in (1, 2);", :prep => @prep)
-    @result << @sp.read_output(32767) while @sp.busy?
-    expected = <<OUTPUT
-
-SQL>
-
-ID          : 1
-NAME        : Bookkeeping
-DESCRIPTION : This department is responsible for:
-              - financial reporting
-              - analysis
-              - other boring tasks
-------------------------------------------------------------
-ID          : 2
-NAME        : Marketing
-DESCRIPTION :  
-------------------------------------------------------------
-
-SQL>
-OUTPUT
-    @result.should eq(expected)
-  end# }}}
-
-it 'should work with accept prompts' do# {{{
-  begin
-    pack_file = Tempfile.new(['vorax', '.sql'])
-    @sp.exec("accept var prompt \"Enter var: \"\nprompt &var", :prep => @prep, :pack_file => pack_file.path)
-    Timeout::timeout(10) {
-      @result << @sp.read_output(32767) while @result !~ /Enter var:\z/
-      @sp.send_text("muci\n")
-      @result << @sp.read_output(32767) while @result !~ /muci\n\z/
-    }
-  ensure
-    pack_file.unlink
-  end
-end# }}}
-
-  after(:each) do# {{{
-    @sp.terminate
-  end# }}}
-
-end
-