记一次测试环境准备

公司A系统，C/S架构，有一个数据迁移项目，需要准备一个只有配置没有数据的空环境。A系统自带工具可以准备空环境并进行两个环境的配置信息对比，并更新还是挺方便的。但是在更新配置的过程中，发现目前生产上的一项配置无法更新到测试环境，提示字段长度不够。这就怪了按理说应该都是一样的啊。细查之后发现确实不一样，生产环境该字段是char（32 char），而测试环境是char（32）。关于这两个的区别可以参看这篇博文。

为了使测试环境跟生成环境一致就需要将所有char字段的设置为char长度类型，所有varchar2字段的也设置为char长度类型。网上找了一个脚本，地址点我。脚本也粘贴如下：

 1 create or replace procedure modifychartovarchar is --
 2 
 3   cursor c1 is
 4     select t.TABLE_NAME, t.COLUMN_NAME, t.DATA_LENGTH
 5       from all_tab_columns t
 6      where t.OWNER = 'LANDUSER' and t.DATA_TYPE = 'CHAR' and
 7            t.TABLE_NAME in (select at.table_name from all_tables at);
 8   PTABLE_NAME  varchar2(100);
 9   pCOLUMN_NAME varchar2(100);
10   sqlstr       varchar2(200);
11   Dl           integer;
12 begin
13 
14    --by 闫磊 Email:[email protected],[email protected] 2006.10.11
15 
16 
17   open c1;
18   fetch c1
19     into PTABLE_NAME, pCOLUMN_NAME, Dl;
20   while c1%found loop
21     sqlstr := 'alter table ' || PTABLE_NAME || ' modify ' || pCOLUMN_NAME ||
22               ' varchar2(' || Dl || ' char' || ')';
23     dbms_output.put_line(sqlstr);
24     execute immediate sqlstr;
25     sqlstr := 'update ' || PTABLE_NAME || ' set ' || pCOLUMN_NAME ||
26               '=trim(' || pCOLUMN_NAME || ')';
27     dbms_output.put_line(sqlstr);
28     execute immediate sqlstr;
29  
30     fetch c1
31       into PTABLE_NAME, pCOLUMN_NAME, Dl;
32  
33   end loop;
34   commit;
35   close c1;
36 end;

下面记录一下测试环境准备步骤：

1、创建一个user；

2、赋予cnu_environment表的select权限；

3、在A系统客户端安装目录的setup文件夹下设置初始用户信息；

4、打开A系统的管理台，创建基础数据库表；

5、通过上述脚本将char和varchar2类型的长度都改为给予char的；

6、创建索引、view、contrains等；

7、创建Base data；

8、找生产系统，跟这个新的测试环境进行配置对比，并将不同更新到测试环境；

大功告成。