Thanks to visit codestin.com
Credit goes to github.com

Skip to content
Merged
Show file tree
Hide file tree
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Added betwnstr example
  • Loading branch information
jgebal committed Dec 13, 2016
commit f6b4e964ebc05cdde48d661db5e8bbb87c47c196
3 changes: 2 additions & 1 deletion examples/award_bonus/run_award_bonus_test.sql
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,8 @@
@@award_bonus.sql
@@test_award_bonus.pkg

set serveroutput on
set serveroutput on size unlimited format truncated

exec ut.run(user||'.test_award_bonus',ut_documentation_reporter());

drop package test_award_bonus;
Expand Down
9 changes: 9 additions & 0 deletions examples/between_string/betwnstr.sql
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
create or replace function betwnstr( a_string varchar2, a_start_pos integer, a_end_pos integer ) return varchar2 is
l_start_pos pls_integer := a_start_pos;
begin
if l_start_pos = 0 then
l_start_pos := 1;
end if;
return substr( a_string, l_start_pos, a_end_pos - l_start_pos + 1);
end;
/
10 changes: 10 additions & 0 deletions examples/between_string/run_betwnstr_test.sql
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
@@betwnstr.sql
@@test_betwnstr.pkg

set serveroutput on size unlimited format truncated

exec ut.run(user||'.test_betwnstr',ut_documentation_reporter());

drop package test_betwnstr;
drop function betwnstr;

43 changes: 43 additions & 0 deletions examples/between_string/test_betwnstr.pkg
Original file line number Diff line number Diff line change
@@ -0,0 +1,43 @@
create or replace package test_betwnstr as

-- %suite(Between string function)

-- %test(Returns substring from start position to end position)
procedure normal_case;

-- %test(Returns substring when start position is zero)
procedure zero_start_position;

-- %test(Returns string until end if end position is greated than string length)
procedure big_end_position;

-- %test(Returns null for null inlut srting value)
procedure null_string;
end;
/

create or replace package body test_betwnstr as

procedure normal_case is
begin
ut.expect( betwnstr( '1234567', 2, 5 ) ).to_( equal('2345') );
end;

procedure zero_start_position is
begin
ut.expect( betwnstr( '1234567', 0, 5 ) ).to_( equal('12345') );
end;


procedure big_end_position is
begin
ut.expect( betwnstr( '1234567', 0, 500 ) ).to_( equal('1234567') );
end;

procedure null_string is
begin
ut.expect( betwnstr( null, 2, 5 ) ).to_( be_null );
end;

end;
/