blob: 50f7d11b4db05494b01dbfe48f1f404772c7580b [file] [log] [blame]
AUTOCOMMIT OFF;
-- MODULE DML170
-- SQL Test Suite, V6.0, Interactive SQL, dml170.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION FLATER
set schema FLATER;
--O SELECT USER FROM HU.ECCO;
VALUES USER;
-- RERUN if USER value does not match preceding AUTHORIZATION comment
--O ROLLBACK WORK;
-- date_time print
-- TEST:0880 Long constraint names, cursor names!
CREATE TABLE T0880 (
C1 INT NOT NULL, C2 INT NOT NULL,
CONSTRAINT
"It was the best of"
PRIMARY KEY (C1, C2));
-- PASS:0880 If table created successfully?
COMMIT WORK;
INSERT INTO T0880 VALUES (0, 1);
-- PASS:0880 If 1 row inserted successfully?
INSERT INTO T0880 VALUES (1, 2);
-- PASS:0880 If 1 row inserted successfully?
INSERT INTO T0880 VALUES (1, 2);
-- PASS:0880 If ERROR - integrity constraint violation?
SELECT C1 FROM T0880 ORDER BY C1;
-- PASS:0880 If 2 rows are returned in the following order?
-- c1
-- ==
-- PASS:0880 If 0 ?
-- PASS:0880 If 1 ?
COMMIT WORK;
ALTER TABLE T0880
DROP CONSTRAINT
"It was the best of"
--O CASCADE;
;
-- PASS:0880 If table altered successfully?
COMMIT WORK;
INSERT INTO T0880 VALUES (0, 1);
-- PASS:0880 If 1 row inserted successfully?
SELECT COUNT (*) FROM T0880;
-- PASS:0880 If COUNT = 3?
COMMIT WORK;
--O DROP TABLE T0880 CASCADE;
DROP TABLE T0880 ;
-- PASS:0880 If table dropped successfully?
COMMIT WORK;
-- END TEST >>> 0880 <<< END TEST
-- *********************************************
-- TEST:0881 Long character set names, domain names!
--O CREATE CHARACTER SET
--O "Little boxes on the hillside, Little boxes made of ticky-tacky"
--O GET SQL_TEXT;
-- PASS:0881 If character set created successfully?
--O COMMIT WORK;
--O CREATE DOMAIN
--O "Little boxes on the hillside, Little boxes all the same."
--O CHAR (4) CHARACTER SET
--O "Little boxes on the hillside, Little boxes made of ticky-tacky";
-- PASS:0881 If domain created successfully?
--O COMMIT WORK;
--O CREATE TABLE T0881 ( C1
--O "Little boxes on the hillside, Little boxes all the same.");
-- PASS:0881 If table created successfully?
--O COMMIT WORK;
--O INSERT INTO T0881 VALUES ('ABCD');
-- PASS:0881 If insert completed successfully?
--O SELECT COUNT(*) FROM T0881
--O WHERE C1 = 'ABCD';
-- PASS:0881 If COUNT = 1?
--O COMMIT WORK;
--O DROP TABLE T0881 CASCADE;
-- PASS:0881 if table dropped successfully?
--O COMMIT WORK;
--O DROP DOMAIN
--O "Little boxes on the hillside, Little boxes all the same."
--O CASCADE;
-- PASS:0881 If domain dropped successfully?
--O COMMIT WORK;
--O DROP CHARACTER SET
--O "Little boxes on the hillside, Little boxes made of ticky-tacky";
-- PASS:0881 If character set dropped successfully?
--O COMMIT WORK;
-- END TEST >>> 0881 <<< END TEST
-- *********************************************
-- *************************************************////END-OF-MODULE