Oracle 测试语句

一、简单测试

declare l_card_id number;
        v_result  varchar2(1000);
begin 
   select t.card_id into l_card_id from (
          select t.rowid from sup_card t 
          where t.card_id = 41
          order by t.card_No desc,t.up_load_date asc
          ) R 
    inner Join sup_card t on R.Rowid = t.rowid 
          where rownum < 2;
    
    if (l_card_id is null) then
       v_result := 'It is null';
    elsif (l_card_id = 0) then 
       v_result := 'Zero';
    else
       v_result := l_card_id;
    end if;
    
    dbms_output.put_line(v_result); 
end;

split_type的理解、使用： 

declare
  l_auto_i   integer;
  l_sup_list split_type;
begin

  l_sup_list := em_f_split(&liststr);

  l_auto_i := l_sup_list.first;

  while l_auto_i is not null loop
  
    dbms_output.put_line(l_auto_i || ':' || l_sup_list(l_auto_i));
  
    -- 进1
    l_auto_i := l_sup_list.next(l_auto_i);
  end loop;

  dbms_output.put_line('END');
end;

问题：1. 如果查询card_id的数据没有，那么t.card_id into l_card_id时，将抛出异常

2. elseif 的写法是 elsif，少了个e.

二、参数是游标的测试

declare
  xx bp_platform_order%rowtype;
  cursor cur is
    select * from bp_platform_order o where o.product_no = '4';
begin
  open cur;
  loop
    fetch cur
      into xx;
    exit when cur%notfound;
    dbms_output.put_line('**=' || xx.platform_order_id);
  end loop;
  close cur;
end;

declare
  xx varchar2(1000);
  yy number;
  cursor cur is
    select o.platform_order_id,o.order_status from bp_platform_order o where o.product_no = '4';
begin
  open cur;
  loop
    fetch cur
      into xx,yy;
    exit when cur%notfound;
    dbms_output.put_line('**=' || xx);
  end loop;
  close cur;
end;

三、可以输入值得测试

declare
  -- Non-scalar parameters require additional processing 
  result   split_type;
  l_auto_i integer;
begin
  -- 必须用&标记输入变量
  -- 在弹出的框中输入测试值时，字符串必须用‘’包起来
  result   := bp_f_split(&p_str, &p_delimiter);
  l_auto_i := result.first;
  while l_auto_i is not null loop
  
    dbms_output.put_line(to_char(l_auto_i) || '=>' ||
                         to_char(result(l_auto_i)));
    if (result(l_auto_i) is null) then
      dbms_output.put_line(to_char(l_auto_i) || '****null');
    end if;
    l_auto_i := result.next(l_auto_i);
  end loop;
end;

 

四、 while循环

declare
  l_card_id number;
  v_result  varchar2(1000);
  l_date    date := trunc(sysdate, 'mm');
  l_result1 number;
  l_result2 number;
  l_result3 number;
begin
  while l_date > to_date('20140701', 'yyyymmdd') loop
  
    begin
    
      l_date := l_date - 1;

      dbms_output.put_line(to_char(l_date, 'yyyy-mm-dd: ') ||
                           to_char(l_result1) || '' || to_char(l_result2) ||
                           to_char(l_result3));
    
    end;
  
  end loop;

  dbms_output.put_line('over!!');
end;