/ Check-in [1906d2da]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add another test case to verify that ticket #3092 has been fixed. (CVS 5076)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1906d2dadcd70053f55e2133af9f838e2d828fa7
User & Date: drh 2008-05-02 02:00:54
Context
2008-05-02
14:08
Add a test case for ticket #3093. (CVS 5077) check-in: 288a7655 user: drh tags: trunk
02:00
Add another test case to verify that ticket #3092 has been fixed. (CVS 5076) check-in: 1906d2da user: drh tags: trunk
2008-05-01
18:01
Fix a problem with journal files being created unnecessarily when doing an atomic write in exclusive access locking mode. Fix a test script problem. (CVS 5075) check-in: 70e70866 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/tkt2927.test.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
630
631
632
633
634
635
636
637
































638
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#
# This file is to test that ticket #2927 is fixed.
#
# $Id: tkt2927.test,v 1.1 2008/02/06 23:52:37 drh Exp $
#

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Create a database.
#
................................................................................
  db eval {
    SELECT abs(a), abs(b) FROM t1
    INTERSECT
    SELECT abs(a), abs(b) FROM t1
    ORDER BY 1
  }
} {1 11 2 22 3 33 4 44 5 55}

































finish_test







|







 








>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#
# This file is to test that ticket #2927 is fixed.
#
# $Id: tkt2927.test,v 1.2 2008/05/02 02:00:54 drh Exp $
#

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Create a database.
#
................................................................................
  db eval {
    SELECT abs(a), abs(b) FROM t1
    INTERSECT
    SELECT abs(a), abs(b) FROM t1
    ORDER BY 1
  }
} {1 11 2 22 3 33 4 44 5 55}

# Ticket #3092 is the same bug.  But another test case never hurts.
#
do_test tkt2927-7.1 {
  db eval {
    CREATE TABLE host (
     hostname text not null primary key,
     consoleHost text,
     consolePort text
    );
    INSERT INTO "host" VALUES('aald04','aalp03','4');
    INSERT INTO "host" VALUES('aald17','aalp01','1');
    CREATE VIEW consolemap1a as
      select hostname, consolehost, '/dev/cuaD0.' || (consoleport-1) consoleport
        from host where consolehost='aalp01';
    CREATE VIEW consolemap1b as
      select hostname hostname, consolehost consolehost, '/dev/cuaD' ||
             substr('01',1+((consoleport-1)/16),1) ||
             substr('0123456789abcdef',1+((consoleport-1)%16),1) consoleport
        from host where consolehost='aalp03';
    CREATE VIEW consolemap1 as
      select * from consolemap1a
      union
      select * from consolemap1b;
    SELECT * from consolemap1b;
  }
} {aald04 aalp03 /dev/cuaD03}
do_test tkt2927-7.2 {
  db eval {
    SELECT * FROM consolemap1
  }
} {aald04 aalp03 /dev/cuaD03 aald17 aalp01 /dev/cuaD0.0}

finish_test