summaryrefslogtreecommitdiff
path: root/src/test
diff options
context:
space:
mode:
Diffstat (limited to 'src/test')
-rw-r--r--src/test/regress/expected/euc_jp.out32
-rwxr-xr-xsrc/test/regress/regress.sh4
-rw-r--r--src/test/regress/sql/euc_jp.sql4
3 files changed, 38 insertions, 2 deletions
diff --git a/src/test/regress/expected/euc_jp.out b/src/test/regress/expected/euc_jp.out
index c710392738f..f976010e76b 100644
--- a/src/test/regress/expected/euc_jp.out
+++ b/src/test/regress/expected/euc_jp.out
@@ -53,3 +53,35 @@ QUERY: select * from 計算機用語 where 用語 ~* 'コンピュータ[デグ]';
コンピュータグラフィックス|分B10中 |
(2 rows)
+QUERY: select *,character_length(用語) from 計算機用語;
+用語 |分類コード|備考1aだよ|length
+--------------------------+----------+----------+------
+コンピュータディスプレイ |機A01上 | | 12
+コンピュータグラフィックス|分B10中 | | 13
+コンピュータプログラマー |人Z01下 | | 12
+(3 rows)
+
+QUERY: select *,octet_length(用語) from 計算機用語;
+用語 |分類コード|備考1aだよ|octet_length
+--------------------------+----------+----------+------------
+コンピュータディスプレイ |機A01上 | | 24
+コンピュータグラフィックス|分B10中 | | 26
+コンピュータプログラマー |人Z01下 | | 24
+(3 rows)
+
+QUERY: select *,position('デ' in 用語) from 計算機用語;
+用語 |分類コード|備考1aだよ|strpos
+--------------------------+----------+----------+------
+コンピュータディスプレイ |機A01上 | | 7
+コンピュータグラフィックス|分B10中 | | 0
+コンピュータプログラマー |人Z01下 | | 0
+(3 rows)
+
+QUERY: select *,substring(用語 from 10 for 4) from 計算機用語;
+用語 |分類コード|備考1aだよ|substr
+--------------------------+----------+----------+--------
+コンピュータディスプレイ |機A01上 | |プレイ
+コンピュータグラフィックス|分B10中 | |ィックス
+コンピュータプログラマー |人Z01下 | |ラマー
+(3 rows)
+
diff --git a/src/test/regress/regress.sh b/src/test/regress/regress.sh
index f12b431e31b..caa40033b80 100755
--- a/src/test/regress/regress.sh
+++ b/src/test/regress/regress.sh
@@ -1,5 +1,5 @@
#!/bin/sh
-# $Header: /cvsroot/pgsql/src/test/regress/Attic/regress.sh,v 1.18 1998/03/15 07:39:04 scrappy Exp $
+# $Header: /cvsroot/pgsql/src/test/regress/Attic/regress.sh,v 1.19 1998/04/27 17:10:17 scrappy Exp $
#
if echo '\c' | grep -s c >/dev/null 2>&1
then
@@ -43,7 +43,7 @@ fi
echo "=============== running regression queries... ================="
echo "" > regression.diffs
if [ a$MB != a ];then
- mbtests=`echo $MB|tr A-Z a-z`
+ mbtests=`echo $MB|tr "[A-Z]" "[a-z]"`
else
mbtests=""
fi
diff --git a/src/test/regress/sql/euc_jp.sql b/src/test/regress/sql/euc_jp.sql
index 8cba58055d5..2021205bf45 100644
--- a/src/test/regress/sql/euc_jp.sql
+++ b/src/test/regress/sql/euc_jp.sql
@@ -13,3 +13,7 @@ select * from 計算機用語 where 分類コード like '_Z01_';
select * from 計算機用語 where 分類コード like '_Z%';
select * from 計算機用語 where 用語 ~ 'コンピュータ[デグ]';
select * from 計算機用語 where 用語 ~* 'コンピュータ[デグ]';
+select *,character_length(用語) from 計算機用語;
+select *,octet_length(用語) from 計算機用語;
+select *,position('デ' in 用語) from 計算機用語;
+select *,substring(用語 from 10 for 4) from 計算機用語;