septeql

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

tests.lisp (4546B)

      1 ;;; This file created by kludgy bits of elisp, have a care when
      2 ;;; editing by hand.  See http://www.coruskate.net/Testing%20times
      3 
      4 ;; sent
      5 (+ 1 2) ; this is a comment
      6 ;; received
      7 3
      8 ;; sent
      9 (to-sql '(project ((as (from-universal-time date) ident) name) venue))
     10 ;; received
     11 "SELECT FROM_UNIVERSAL_TIME(DATE) AS IDENT,NAME FROM VENUE "
     12 
     13 ;; sent
     14 (+ 1 
     15 	2
     16 	3)
     17 	
     18 ;; received
     19 6
     20 ;; sent
     21 (to-sql 'relation)
     22 ;; received
     23 "SELECT * FROM RELATION "
     24 ;; sent
     25 (to-sql '(select relation (= value 1)))
     26 ;; received
     27 "SELECT * FROM RELATION WHERE (VALUE = 1) "
     28 ;; sent
     29 (to-sql '(order relation attribute))
     30 ;; received
     31 "SELECT * FROM RELATION ORDER BY ATTRIBUTE ASC "
     32 ;; sent
     33 (to-sql '(order relation attribute :desc))
     34 ;; received
     35 "SELECT * FROM RELATION ORDER BY ATTRIBUTE DESC "
     36 ;; sent
     37 (to-sql '(limit (order relation attribute :desc) 5 15))
     38 ;; received
     39 "SELECT * FROM RELATION ORDER BY ATTRIBUTE DESC OFFSET 5 LIMIT 10 "
     40 ;; sent
     41 (to-sql '(order (limit relation 5 15) attribute :desc) )
     42 ;; received
     43 "SELECT * FROM (SELECT * FROM RELATION OFFSET 5 LIMIT 10 ) RELATION  ORDER BY ATTRIBUTE DESC "
     44 ;; sent
     45 (to-sql '(project (att1 att2 att3) relation))
     46 ;; received
     47 "SELECT ATT1,ATT2,ATT3 FROM RELATION "
     48 ;; sent
     49 (to-sql '(project (att1 (as att2 name) att3) relation))
     50 ;; received
     51 "SELECT ATT1,ATT2 AS NAME,ATT3 FROM RELATION "
     52 ;; sent
     53 (to-sql '(project (att1 (as (function att2 att10) name) att3) relation))
     54 ;; received
     55 "SELECT ATT1,FUNCTION(ATT2,ATT10) AS NAME,ATT3 FROM RELATION "
     56 ;; sent
     57 (to-sql '(select r (or (= a b) (> a b) (< a b) (<= a b) (>= a b) (like a b) (ilike a b) (~ a b) (~* a b) (! a b) (!* a b)))) ; all the infix operations
     58 ;; received
     59 "SELECT * FROM R WHERE (((((((((((A = B) OR (A > B)) OR (A < B)) OR (A <= B)) OR (A >= B)) OR (A LIKE B)) OR (A ILIKE B)) OR (A ~ B)) OR (A ~* B)) OR (A ! B)) OR (A !* B)) "
     60 ;; sent
     61 (to-sql '(project ((as (++ a b) cat)) r))
     62 ;; received
     63 "SELECT (A || B) AS CAT FROM R "
     64 ;; sent
     65 (to-sql '(rename relation new-name))
     66 ;; received
     67 "SELECT * FROM RELATION NEW_NAME  "
     68 ;; sent
     69 (to-sql '(rename (order relation id) new-name))
     70 ;; received
     71 "SELECT * FROM (SELECT * FROM RELATION ORDER BY ID ASC ) NEW_NAME  "
     72 ;; sent
     73 (to-sql '(join (join rel1 rel2 predicate) rel3 pred2))
     74 ;; received
     75 "SELECT * FROM ((REL1 JOIN REL2 ON PREDICATE) JOIN REL3 ON PRED2) "
     76 ;; sent
     77 (to-sql '(join rel1 rel2 predicate))
     78 ;; received
     79 "SELECT * FROM (REL1 JOIN REL2 ON PREDICATE) "
     80 ;; sent
     81 (to-sql '(rename (join rel1 rel2 predicate) newname))
     82 ;; received
     83 "SELECT * FROM (REL1 JOIN REL2 ON PREDICATE) NEWNAME  "
     84 ;; sent
     85 (to-sql '(rename (order relation attribute) newname))
     86 ;; received
     87 "SELECT * FROM (SELECT * FROM RELATION ORDER BY ATTRIBUTE ASC ) NEWNAME  "
     88 ;; sent
     89 (to-sql '(select (limit (order relation attribute) 0 3) pred))
     90 ;; received
     91 "SELECT * FROM (SELECT * FROM RELATION ORDER BY ATTRIBUTE ASC LIMIT 3 ) RELATION  WHERE PRED "
     92 
     93 ;; sent
     94 (7ql:to-sql '(project ("string") rel))
     95 ;; received
     96 "SELECT 'string' FROM REL "
     97 ;; sent
     98 (7ql:to-sql '(project ("str'ing") rel))
     99 ;; received
    100 "SELECT 'str''ing' FROM REL "
    101 ;; sent
    102 (7ql:to-sql '(group ((as (sum quantity) quantity) (as (sum (* quantity cost)) value))
    103 		   (event-id event-description)
    104 		   order-line))
    105 ;; received
    106 "SELECT SUM(QUANTITY) AS QUANTITY,SUM((QUANTITY * COST)) AS VALUE,EVENT_ID,EVENT_DESCRIPTION FROM ORDER_LINE GROUP BY EVENT_ID,EVENT_DESCRIPTION "
    107 ;; sent
    108 (7ql:to-sql '(project ((case ((= 1 1) true) ((= 1 5) hello) (t null))) foo))
    109 ;; received
    110 "SELECT (CASE WHEN (1 = 1) THEN TRUE WHEN (1 = 5) THEN HELLO ELSE NULL END)  FROM FOO "
    111 ;; sent
    112 (7ql:to-sql '(project ((as (case ((= 1 1) true) ((= 1 5) hello) (t null)) title)) foo))
    113 ;; received
    114 "SELECT (CASE WHEN (1 = 1) THEN TRUE WHEN (1 = 5) THEN HELLO ELSE NULL END)  AS TITLE FROM FOO "
    115 ;; sent
    116 (7ql:to-sql `(project (3d1) dual))
    117 ;; received
    118 "SELECT 30.0 FROM DUAL "
    119 ;; sent
    120 (7ql:to-sql `(project (3/4) dual))
    121 ;; received
    122 "SELECT 0.75 FROM DUAL "
    123 ;; sent
    124 (7ql:to-sql `(project (3) dual))
    125 ;; received
    126 "SELECT 3 FROM DUAL "
    127 ;; sent
    128 (type-of (second (multiple-value-list (ignore-errors (to-sql `(project (#c(1 2)) dual))))))
    129 ;; received
    130 SIMPLE-ERROR
    131 ;; sent
    132 (to-sql '(project ((cond ((= 1 1) true) ((= 1 5) hello) (t null))) foo))
    133 ;; received
    134 "SELECT (CASE WHEN (1 = 1) THEN TRUE WHEN (1 = 5) THEN HELLO ELSE NULL END)  FROM FOO "
    135 ;; sent
    136 (to-sql '(select relation (and (= value 1) (< another 10) (or true false))))
    137 ;; received
    138 "SELECT * FROM RELATION WHERE (((VALUE = 1) AND (ANOTHER < 10)) AND (TRUE OR FALSE)) "
    139 ;; sent
    140 (7ql:to-sql '(left-join a b (= a.id b.id)))
    141 ;; received
    142 "SELECT * FROM (A LEFT JOIN B ON (A.ID = B.ID)) "