orasaurus 0.0.4 → 0.0.5

data/spec/orasaurus_spec.rb

@@ -2,11 +2,43 @@ require 'spec_helper'
 
 describe "Orasaurus" do
 
-  it "should be able to create an Oracle object from a file" do
-    Orasaurus.compile( "franklin" )
-    Orasaurus.compile( "franklin" ).should == "franklin"
+  before(:all) do
+    cleanup
   end
   
-end
+  before(:each) do
+    @sampleApp = Orasaurus::Application.new("SampleApp",File.dirname(__FILE__) + '/sampleApp')
+  end
 
-puts "franklin"
+  it "should have a default configuration" do
+    @sampleApp.config.should_not be_nil
+  end
+  
+  it "should be able to override default configuration" do
+    @sampleApp.config.custom = true
+    @sampleApp.config.custom.should be_true
+    @sampleApp.config.custom = false
+    @sampleApp.config.custom.should be_false
+  end
+  
+  it "should be able to discover the buildable directories" do
+    @sampleApp.build_dirs.grep(/Notes\/Packages/).should_not be_empty
+    @sampleApp.build_dirs.grep(/Notes\/Tables/).should_not be_empty
+    @sampleApp.build_dirs.grep(/Notes\/Sequences/).should_not be_empty
+  end
+  
+  it "should be able to generate build scripts" do
+    @sampleApp.generate(:build_scripts)
+    File.exists?(@sampleApp.base_dir+'/Notes/Packages/build.sql').should be_true
+  end
+  
+  it "should be able to generate teardown scripts" do
+    @sampleApp.generate(:teardown_scripts)
+    File.exists?(@sampleApp.base_dir+'/Notes/Packages/teardown.sql').should be_true
+  end  
+  
+  after(:all) do
+    cleanup
+  end
+  
+end

data/spec/sampleApp/Notes/Packages/pkg_note_comments.pkg

@@ -0,0 +1,164 @@
+/*<TOAD_FILE_CHUNK>*/
+CREATE OR REPLACE PACKAGE pkg_note_comments
+IS
+
+  TYPE note_comments_tab
+  IS TABLE OF note_comments%ROWTYPE
+  INDEX BY BINARY_INTEGER; 
+  
+  empty_tab note_comments_tab;
+
+  FUNCTION f_get
+    ( the_id note_comments.id%TYPE )
+  RETURN note_comments%ROWTYPE;
+
+  FUNCTION f_get_comments
+    ( the_note_id IN note_comments.note_id%TYPE )
+  RETURN note_comments_tab;
+
+  PROCEDURE p_create
+    ( the_note_id IN note_comments.note_id%TYPE
+    , the_text IN note_comments.text%TYPE );
+
+  PROCEDURE p_update
+    ( the_id IN note_comments.id%TYPE
+    , the_note_id IN note_comments.note_id%TYPE
+    , the_text IN note_comments.text%TYPE );
+  
+  PROCEDURE p_save
+    ( the_comment IN note_comments%ROWTYPE );    
+      
+  PROCEDURE p_save
+    ( the_comments IN note_comments_tab );    
+    
+  PROCEDURE p_delete
+    ( the_id IN note_comments.id%TYPE );    
+    
+END;
+
+/
+/*<TOAD_FILE_CHUNK>*/
+
+CREATE OR REPLACE PACKAGE BODY pkg_note_comments
+IS
+
+  FUNCTION f_get
+    ( the_id note_comments.id%TYPE )
+  RETURN note_comments%ROWTYPE
+  IS
+    return_rec note_comments%ROWTYPE;
+  BEGIN
+    
+    SELECT *
+    INTO return_rec
+    FROM note_comments
+    WHERE id = the_id;
+    
+    RETURN return_rec;
+    
+  END;
+
+  FUNCTION f_get_comments
+    ( the_note_id IN note_comments.note_id%TYPE )
+  RETURN note_comments_tab
+  IS
+    return_tab note_comments_tab;
+  BEGIN
+
+    SELECT *
+    BULK COLLECT INTO return_tab
+    FROM note_comments
+    WHERE note_id = the_note_id
+    ORDER BY created_at;
+
+    RETURN return_tab;
+      
+  END;
+
+  PROCEDURE p_create
+    ( the_note_id IN note_comments.note_id%TYPE
+    , the_text IN note_comments.text%TYPE )
+  IS
+  BEGIN
+  
+    INSERT INTO note_comments
+      ( id
+      , note_id
+      , text
+      , created_at
+      , created_by
+      , updated_at
+      , updated_by )
+    VALUES
+      ( note_comments_seq.nextval
+      , the_note_id
+      , the_text
+      , SYSDATE
+      , USER
+      , SYSDATE
+      , USER );
+  
+  END;
+  
+  PROCEDURE p_update
+    ( the_id IN note_comments.id%TYPE
+    , the_note_id IN note_comments.note_id%TYPE
+    , the_text IN note_comments.text%TYPE )
+  IS
+  BEGIN
+  
+    UPDATE note_comments
+    SET note_id = the_note_id
+      , text = the_text
+      , updated_at = SYSDATE
+      , updated_by = USER
+    WHERE id = the_id;
+          
+  END;
+  
+  PROCEDURE p_save
+    ( the_comment IN note_comments%ROWTYPE )
+  IS
+  BEGIN
+  
+    IF the_comment.id IS NULL
+    OR the_comment.id < 0 
+    THEN
+      p_create
+        ( the_note_id => the_comment.note_id
+        , the_text => the_comment.text );
+    ELSE
+      p_update
+        ( the_id => the_comment.id
+        , the_note_id => the_comment.note_id
+        , the_text => the_comment.text );    
+    
+    END IF;    
+  
+  END;  
+  
+  PROCEDURE p_save
+    ( the_comments IN note_comments_tab )
+  IS
+  BEGIN
+  
+    IF the_comments.COUNT > 0 THEN
+      FOR i IN the_comments.FIRST..the_comments.LAST LOOP
+        p_save( the_comments( i ) );       
+      END LOOP;
+    END IF;
+  
+  END;
+  
+  PROCEDURE p_delete
+    ( the_id IN note_comments.id%TYPE )
+  IS
+  BEGIN
+  
+    DELETE FROM note_comments WHERE id = the_id;
+  
+  END;    
+
+END;
+
+/

data/spec/sampleApp/Notes/Packages/pkg_note_tags.pkg

@@ -0,0 +1,146 @@
+/*<TOAD_FILE_CHUNK>*/
+CREATE OR REPLACE PACKAGE pkg_note_tags
+IS
+
+  TYPE tag_stat
+  IS RECORD
+    ( tag note_tags.tag%TYPE
+    , count INTEGER );
+
+  TYPE tag_stats
+  IS TABLE OF tag_stat
+  INDEX BY BINARY_INTEGER;
+
+  CURSOR cur_tag_stats
+    ( the_notebook_id IN notebooks.id%TYPE )
+  RETURN tag_stat;
+
+  FUNCTION f_get_tags
+    ( the_note_id IN notes.id%TYPE )
+  RETURN pkg_array_utils.vc_arr;
+
+  FUNCTION f_get_tag_stats
+    ( the_notebook_id IN notebooks.id%TYPE )
+  RETURN tag_stats;
+
+  PROCEDURE p_save
+    ( the_note_tag_rec IN OUT note_tags%ROWTYPE );
+    
+  PROCEDURE p_save_note_tags
+    ( the_note_id IN notes.id%TYPE
+    , the_tags IN pkg_array_utils.vc_arr );
+    
+END;
+
+/
+/*<TOAD_FILE_CHUNK>*/
+
+CREATE OR REPLACE PACKAGE BODY pkg_note_tags
+IS
+
+  CURSOR cur_tag_stats
+    ( the_notebook_id IN notebooks.id%TYPE )
+  RETURN tag_stat
+  IS
+    SELECT *
+    FROM (
+        SELECT tag, COUNT( * ) cnt
+        FROM note_tags nt
+        JOIN notes n
+        ON nt.note_id = n.id
+        JOIN notebooks nb
+        ON n.notebook_id = nb.id
+        WHERE nb.id = the_notebook_id
+        GROUP BY tag
+         )
+    ORDER BY cnt DESC, tag; 
+
+  FUNCTION f_get_tags
+    ( the_note_id IN notes.id%TYPE )
+  RETURN pkg_array_utils.vc_arr
+  IS
+    return_arr pkg_array_utils.vc_arr;
+  BEGIN
+
+    SELECT tag
+    BULK COLLECT INTO return_arr
+    FROM note_tags
+    WHERE note_id = the_note_id;
+    
+    RETURN return_arr;                              
+  
+  END;
+
+  FUNCTION f_get_tag_stats
+    ( the_notebook_id IN notebooks.id%TYPE )
+  RETURN tag_stats
+  IS
+    return_stats tag_stats;
+  BEGIN
+  
+    OPEN cur_tag_stats( the_notebook_id );
+    FETCH cur_tag_stats 
+    BULK COLLECT INTO return_stats;
+    CLOSE cur_tag_stats;
+    
+    RETURN return_stats;    
+  
+  END;
+
+  PROCEDURE p_save
+    ( the_note_tag_rec IN OUT note_tags%ROWTYPE )
+  IS
+  BEGIN
+  
+    IF the_note_tag_rec.id IS NULL THEN
+    
+      SELECT note_tags_seq.NEXTVAL 
+      INTO the_note_tag_rec.id
+      FROM DUAL;
+      
+      INSERT INTO note_tags
+        ( id
+        , note_id
+        , tag )
+      VALUES
+        ( the_note_tag_rec.id
+        , the_note_tag_rec.note_id
+        , the_note_tag_rec.tag );      
+    
+    ELSE
+
+      UPDATE note_tags
+      SET note_id = the_note_tag_rec.note_id
+        , tag = the_note_tag_rec.tag
+      WHERE id = the_note_tag_rec.id;    
+    
+    END IF;
+  
+  END;
+  
+  PROCEDURE p_save_note_tags
+    ( the_note_id IN notes.id%TYPE
+    , the_tags IN pkg_array_utils.vc_arr )
+  IS
+  BEGIN
+  
+    DELETE FROM note_tags WHERE note_id = the_note_id;
+    
+    IF the_tags.COUNT > 0 THEN
+      FOR i IN the_tags.FIRST..the_tags.LAST LOOP
+        DECLARE
+          the_tag_rec note_tags%ROWTYPE;        
+        BEGIN
+          the_tag_rec.note_id := the_note_id;
+          the_tag_rec.tag := the_tags( i );
+          p_save( the_note_tag_rec => the_tag_rec );        
+        END;
+      END LOOP;
+    END IF;     
+  
+  
+  END;  
+
+END;
+
+/

data/spec/sampleApp/Notes/Packages/pkg_notebooks.pkg

@@ -0,0 +1,135 @@
+/*<TOAD_FILE_CHUNK>*/
+CREATE OR REPLACE PACKAGE pkg_notebooks
+IS
+
+  TYPE notebooks_tab
+  IS TABLE OF notebooks%ROWTYPE;
+
+  CURSOR cur_notebooks
+  RETURN notebooks%ROWTYPE;
+
+  FUNCTION f_get_all
+  RETURN notebooks_tab;
+
+  FUNCTION f_get
+    ( the_id IN notebooks.id%TYPE )
+  RETURN notebooks%ROWTYPE;
+
+  FUNCTION f_get
+    ( the_title IN notebooks.title%TYPE )
+  RETURN notebooks%ROWTYPE;
+
+  FUNCTION f_title
+    ( the_id IN notebooks.id%TYPE )
+  RETURN notebooks.title%TYPE;
+
+  FUNCTION f_human_title
+    ( the_id IN notebooks.id%TYPE )
+  RETURN notebooks.title%TYPE;
+
+  PROCEDURE p_create
+    ( the_title IN VARCHAR2 );
+
+END;
+
+/
+/*<TOAD_FILE_CHUNK>*/
+CREATE OR REPLACE PACKAGE BODY pkg_notebooks
+IS
+
+  CURSOR cur_notebooks
+  RETURN notebooks%ROWTYPE
+  IS
+    SELECT *
+    FROM notebooks
+    ORDER BY title; 
+
+  FUNCTION f_get_all
+  RETURN notebooks_tab
+  IS
+    return_tab notebooks_tab;
+  BEGIN
+  
+    OPEN cur_notebooks;
+    FETCH cur_notebooks BULK COLLECT INTO return_tab;
+    CLOSE cur_notebooks;
+    
+    RETURN return_tab;
+  
+  END;
+
+  FUNCTION f_get
+    ( the_id IN notebooks.id%TYPE )
+  RETURN notebooks%ROWTYPE
+  IS
+    return_rec notebooks%ROWTYPE;
+  BEGIN
+  
+    SELECT *
+    INTO return_rec
+    FROM notebooks
+    WHERE id = the_id;
+    
+    RETURN return_rec;
+  
+  END;
+
+  FUNCTION f_get
+    ( the_title IN notebooks.title%TYPE )
+  RETURN notebooks%ROWTYPE
+  IS
+    return_rec notebooks%ROWTYPE;
+  BEGIN
+  
+    SELECT *
+    INTO return_rec
+    FROM notebooks
+    WHERE title = the_title;
+    
+    RETURN return_rec;
+  
+  END;
+  
+  FUNCTION f_title
+    ( the_id IN notebooks.id%TYPE )
+  RETURN notebooks.title%TYPE
+  IS
+    return_val notebooks.title%TYPE;
+  BEGIN
+    
+    SELECT title
+    INTO return_val
+    FROM notebooks
+    WHERE id = the_id;
+  
+    RETURN return_val;
+  
+  END;
+  
+  FUNCTION f_human_title
+    ( the_id IN notebooks.id%TYPE )
+  RETURN notebooks.title%TYPE
+  IS
+  BEGIN
+  
+    RETURN INITCAP( REPLACE( f_title( the_id  ), '_', ' ' ) );
+  
+  END;    
+
+  PROCEDURE p_create
+    ( the_title IN VARCHAR2 )
+  IS
+  BEGIN
+  
+    INSERT INTO notebooks
+      ( id
+      , title )
+    VALUES
+      ( notebooks_seq.nextval
+      , the_title );  
+  
+  
+  END;  
+
+END;
+/