start work on cast expressions, add lots more test targets
This commit is contained in:
Jake Wheat
parent
a81f62b940
commit
aa26603a0c
|
|
@ -47,6 +47,13 @@ back into SQL source text. It attempts to format the output nicely.
|
|||
> ,text "then" <+> scalarExpr t1]
|
||||
> e el = text "else" <+> scalarExpr el
|
||||
> scalarExpr (Parens e) = parens $ scalarExpr e
|
||||
> scalarExpr (Cast e (TypeName tn)) =
|
||||
> text "cast" <> parens (sep [scalarExpr e
|
||||
> ,text "as"
|
||||
> ,text tn])
|
||||
|
||||
> scalarExpr (CastOp s (TypeName tn)) =
|
||||
> text tn <+> quotes (text s)
|
||||
|
||||
= query expressions
|
||||
|
||||
|
|
|
|||
|
|
@ -1,13 +1,14 @@
|
|||
|
||||
> module Language.SQL.SimpleSQL.Syntax
|
||||
> (QueryExpr(..)
|
||||
> (ScalarExpr(..)
|
||||
> ,TypeName(..)
|
||||
> ,QueryExpr(..)
|
||||
> ,makeSelect
|
||||
> ,ScalarExpr(..)
|
||||
> ,Duplicates(..)
|
||||
> ,Direction(..)
|
||||
> ,TableRef(..)
|
||||
> ,JoinType(..)
|
||||
> ,JoinCondition(..)
|
||||
> ,Duplicates(..)
|
||||
> ,Direction(..)
|
||||
> ) where
|
||||
|
||||
|
||||
|
|
@ -23,8 +24,12 @@
|
|||
> [(ScalarExpr,ScalarExpr)] -- when branches
|
||||
> (Maybe ScalarExpr) -- else value
|
||||
> | Parens ScalarExpr
|
||||
> | Cast ScalarExpr TypeName
|
||||
> | CastOp String TypeName
|
||||
> deriving (Eq,Show)
|
||||
|
||||
> data TypeName = TypeName String deriving (Eq,Show)
|
||||
|
||||
> data QueryExpr
|
||||
> = Select
|
||||
> {qeDuplicates :: Duplicates
|
||||
|
|
|
|||
63
TODO
63
TODO
|
|
@ -1,9 +1,18 @@
|
|||
|
||||
check tpch
|
||||
|
||||
add tests to cabal
|
||||
first release
|
||||
|
||||
haddock
|
||||
1. utility function to parse some sql and print the context of the
|
||||
error using the position
|
||||
2. complete the parsing for the tests in the Tests.lhs
|
||||
3. get tpch parsing
|
||||
4. add tests to cabal
|
||||
5. do code documentation and haddock
|
||||
|
||||
|
||||
----
|
||||
|
||||
Later general tasks:
|
||||
|
||||
dialect switching
|
||||
|
||||
|
|
@ -17,46 +26,28 @@ fix lexing wrt suffixes 1/2 done
|
|||
|
||||
position annotation
|
||||
|
||||
emacs parse error formatting
|
||||
|
||||
|
||||
= sql support
|
||||
|
||||
scalar function syntax:
|
||||
cast
|
||||
exists, in subquery
|
||||
scalar subquery
|
||||
in list
|
||||
any/some/all
|
||||
between
|
||||
is null/ is not null
|
||||
interval literal
|
||||
typed string lit
|
||||
|
||||
aggregate app
|
||||
window app
|
||||
standard interval literal
|
||||
|
||||
review all ansi sql operators
|
||||
placeholder/positional arg
|
||||
|
||||
other missing operators
|
||||
extract
|
||||
substring
|
||||
unary + -
|
||||
|
||||
row constructors?
|
||||
|
||||
except, intersect, union
|
||||
|
||||
-- add docs and haddocks at this point
|
||||
row constructors -> needed for stuff like
|
||||
'where (a,b) = any (select a,b from t)'
|
||||
|
||||
|
||||
review identifiers
|
||||
review allowed identifier syntax
|
||||
add quoted identifers
|
||||
more dots in identifiers
|
||||
order by nulls first/last
|
||||
extend case
|
||||
more dots in identifiers
|
||||
escapes in string literals
|
||||
full number literals
|
||||
quoted identifiers
|
||||
full number literals -> other bases?
|
||||
group by (), grouping sets(), cube, rollup
|
||||
lateral
|
||||
corresponding
|
||||
|
|
@ -68,6 +59,20 @@ full tableref aliases
|
|||
collate
|
||||
within group aggregate syntax
|
||||
|
||||
support the ansi version for limit and offset, plus review other
|
||||
dialects
|
||||
|
||||
try to do full review of sql2003 query syntax
|
||||
|
||||
make ansi dialect which only supports ansi sql. Maybe there is a use
|
||||
for a separate SQL 92, 99 and 2003 dialects?
|
||||
|
||||
other dialect targets:
|
||||
postgres
|
||||
oracle
|
||||
teradata
|
||||
ms sql server
|
||||
mysql?
|
||||
db2?
|
||||
|
||||
maybe later: other dml
|
||||
133
Tests.lhs
133
Tests.lhs
|
|
@ -6,10 +6,12 @@
|
|||
> import Language.SQL.SimpleSQL.Parser
|
||||
> import qualified Test.HUnit as H
|
||||
> import Control.Monad
|
||||
> import Tpch
|
||||
|
||||
> data TestItem = Group String [TestItem]
|
||||
> | TestScalarExpr String ScalarExpr
|
||||
> | TestQueryExpr String QueryExpr
|
||||
> | ParseQueryExpr String
|
||||
> deriving (Eq,Show)
|
||||
|
||||
> scalarExprParserTests :: TestItem
|
||||
|
|
@ -21,6 +23,9 @@
|
|||
> ,caseexp
|
||||
> ,operators
|
||||
> ,parens
|
||||
> ,subqueries
|
||||
> ,aggregates
|
||||
> ,windowFunctions
|
||||
> ]
|
||||
|
||||
> literals :: TestItem
|
||||
|
|
@ -76,9 +81,98 @@
|
|||
> ]
|
||||
|
||||
> operators :: TestItem
|
||||
> operators = Group "operators" $ map (uncurry TestScalarExpr)
|
||||
> operators = Group "operators"
|
||||
> [binaryOperators
|
||||
> ,unaryOperators
|
||||
> ,casts
|
||||
> ,miscOps]
|
||||
|
||||
> binaryOperators :: TestItem
|
||||
> binaryOperators = Group "binaryOperators" $ map (uncurry TestScalarExpr)
|
||||
> [("a + b", Op "+" [Iden "a", Iden "b"])
|
||||
> -- sanity check fixities
|
||||
> -- todo: add more fixity checking
|
||||
> ,("a + b * c"
|
||||
> ,Op "+" [Iden "a"
|
||||
> ,Op "*" [Iden "b"
|
||||
> ,Iden "c"]])
|
||||
> ,("a * b + c"
|
||||
> ,Op "+" [Op "*" [Iden "a", Iden "b"]
|
||||
> ,Iden "c"])
|
||||
> ]
|
||||
|
||||
> unaryOperators :: TestItem
|
||||
> unaryOperators = Group "unaryOperators" $ map (uncurry TestScalarExpr)
|
||||
> [("not a", Op "not" [Iden "a"])
|
||||
> ,("not not a", Op "not" [Op "not" [Iden "a"]])
|
||||
> ,("+a", Op "+" [Iden "a"])
|
||||
> ,("-a", Op "-" [Iden "a"])
|
||||
> ]
|
||||
|
||||
|
||||
> casts :: TestItem
|
||||
> casts = Group "operators" $ map (uncurry TestScalarExpr)
|
||||
> [("cast('1' as int)"
|
||||
> ,Cast (StringLit "1") $ TypeName "int")
|
||||
> ,("int '3'"
|
||||
> ,CastOp "1" $ TypeName "int")
|
||||
> ,("cast('1' as double precision)"
|
||||
> ,Cast (StringLit "1") $ TypeName "double precision")
|
||||
> ,("double precision '3'"
|
||||
> ,CastOp "1" $ TypeName "double precision")
|
||||
> ]
|
||||
|
||||
> subqueries :: TestItem
|
||||
> subqueries = Group "unaryOperators" $ map (uncurry TestScalarExpr)
|
||||
> [("exists (select * from t)", Op "not" [Iden "a"])
|
||||
> ,("(select a from t)", Op "not" [Op "not" [Iden "a"]])
|
||||
> ,("in (select a from t)", Op "+" [Iden "a"])
|
||||
> ,("not in (select a from t)", Op "+" [Iden "a"])
|
||||
> ,("a > ALL (select a from t)", Op "-" [Iden "a"])
|
||||
> ,("a > SOME (select a from t)", Op "-" [Iden "a"])
|
||||
> ,("a > ANY (select a from t)", Op "-" [Iden "a"])
|
||||
> ]
|
||||
|
||||
> miscOps :: TestItem
|
||||
> miscOps = Group "unaryOperators" $ map (uncurry TestScalarExpr)
|
||||
> [("a in (1,2,3)", Op "not" [Iden "a"])
|
||||
> ,("a between b and c", Op "not" [])
|
||||
> ,("a not between b and c", Op "not" [])
|
||||
> ,("a is null", Op "not" [])
|
||||
> ,("a is not null", Op "not" [])
|
||||
> ,("a is distinct from b", Op "not" [])
|
||||
> ,("a is not distinct from b", Op "not" [])
|
||||
> ,("a is true", Op "not" [])
|
||||
> ,("a s not true", Op "not" [])
|
||||
> ,("a is false", Op "not" [])
|
||||
> ,("a is not false", Op "not" [])
|
||||
> ,("a is unknown", Op "not" [])
|
||||
> ,("a is not unknown", Op "not" [])
|
||||
> ,("a like b", Op "not" [])
|
||||
> ,("a not like b", Op "not" [])
|
||||
> ,("a is similar to b", Op "not" [])
|
||||
> ,("a is not similar to b", Op "not" [])
|
||||
> ,("a overlaps b", Op "not" [])
|
||||
> ,("extract(day from t)", Op "not" [])
|
||||
> ]
|
||||
|
||||
> aggregates :: TestItem
|
||||
> aggregates = Group "aggregates" $ map (uncurry TestScalarExpr)
|
||||
> [("count(*)",NumLit "1")
|
||||
> ,("sum(a order by a)",NumLit "1")
|
||||
> ,("sum(all a)",NumLit "1")
|
||||
> ,("count(distinct a)",NumLit "1")
|
||||
> ]
|
||||
|
||||
> windowFunctions :: TestItem
|
||||
> windowFunctions = Group "windowFunctions" $ map (uncurry TestScalarExpr)
|
||||
> [("max(a) over ()", NumLit "1")
|
||||
> ,("count(*) over ()", NumLit "1")
|
||||
> ,("max(a) over (partition by b)", NumLit "1")
|
||||
> ,("sum(a) over (order by b)", NumLit "1")
|
||||
> ,("sum(a) over (partition by b order by c)", NumLit "1")
|
||||
> ,("sum(a) over (partition by b order by c)", NumLit "1")
|
||||
> -- todo: check order by options, add frames
|
||||
> ]
|
||||
|
||||
> parens :: TestItem
|
||||
|
|
@ -97,6 +191,7 @@
|
|||
> ,having
|
||||
> ,orderBy
|
||||
> ,limit
|
||||
> ,combos
|
||||
> ,fullQueries
|
||||
> ]
|
||||
|
||||
|
|
@ -242,6 +337,16 @@
|
|||
> ,qeLimit = l
|
||||
> ,qeOffset = o}
|
||||
|
||||
> combos :: TestItem
|
||||
> combos = Group "combos" $ map (uncurry TestQueryExpr)
|
||||
> [("select a from t union select b from u"
|
||||
> ,makeSelect)
|
||||
> ,("select a from t intersect select b from u"
|
||||
> ,makeSelect)
|
||||
> ,("select a from t except select b from u"
|
||||
> ,makeSelect)
|
||||
> ]
|
||||
|
||||
> fullQueries :: TestItem
|
||||
> fullQueries = Group "queries" $ map (uncurry TestQueryExpr)
|
||||
> [("select count(*) from t"
|
||||
|
|
@ -270,11 +375,17 @@
|
|||
> )
|
||||
> ]
|
||||
|
||||
> tpchTests :: TestItem
|
||||
> tpchTests =
|
||||
> Group "parse tpch"
|
||||
> $ map (ParseQueryExpr . snd) tpchQueries
|
||||
|
||||
> testData :: TestItem
|
||||
> testData =
|
||||
> Group "parserTest"
|
||||
> [scalarExprParserTests
|
||||
> ,queryExprParserTests]
|
||||
> ,queryExprParserTests
|
||||
> ,tpchTests]
|
||||
|
||||
|
||||
> runTests :: IO ()
|
||||
|
|
@ -287,6 +398,8 @@
|
|||
> toTest parseScalarExpr prettyScalarExpr str expected
|
||||
> itemToTest (TestQueryExpr str expected) =
|
||||
> toTest parseQueryExpr prettyQueryExpr str expected
|
||||
> itemToTest (ParseQueryExpr str) =
|
||||
> toPTest parseQueryExpr prettyQueryExpr str
|
||||
|
||||
> toTest :: (Eq a, Show a, Show e) =>
|
||||
> (String -> Maybe (Int,Int) -> String -> Either e a)
|
||||
|
|
@ -305,3 +418,19 @@
|
|||
> case egot' of
|
||||
> Left e' -> H.assertFailure $ "pp roundtrip " ++ show e'
|
||||
> Right got' -> H.assertEqual "pp roundtrip" expected got'
|
||||
|
||||
> toPTest :: (Eq a, Show a, Show e) =>
|
||||
> (String -> Maybe (Int,Int) -> String -> Either e a)
|
||||
> -> (a -> String)
|
||||
> -> String
|
||||
> -> H.Test
|
||||
> toPTest parser pp str = H.TestLabel str $ H.TestCase $ do
|
||||
> let egot = parser "" Nothing str
|
||||
> case egot of
|
||||
> Left e -> H.assertFailure $ show e
|
||||
> Right got -> do
|
||||
> let str' = pp got
|
||||
> let egot' = parser "" Nothing str'
|
||||
> case egot' of
|
||||
> Left e' -> H.assertFailure $ "pp roundtrip " ++ show e'
|
||||
> Right got' -> return ()
|
||||
|
|
|
|||
675
Tpch.lhs
Normal file
675
Tpch.lhs
Normal file
|
|
@ -0,0 +1,675 @@
|
|||
|
||||
test data for tpch queries
|
||||
|
||||
|
||||
> {-# LANGUAGE QuasiQuotes,OverloadedStrings #-}
|
||||
|
||||
> module Tpch (tpchQueries) where
|
||||
>
|
||||
|
||||
> tpchQueries :: [(String,String)]
|
||||
> tpchQueries =
|
||||
> [("Q1","\n\
|
||||
> \select\n\
|
||||
> \ l_returnflag,\n\
|
||||
> \ l_linestatus,\n\
|
||||
> \ sum(l_quantity) as sum_qty,\n\
|
||||
> \ sum(l_extendedprice) as sum_base_price,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount)) as sum_disc_price,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount) * (1 + l_tax)) as sum_charge,\n\
|
||||
> \ avg(l_quantity) as avg_qty,\n\
|
||||
> \ avg(l_extendedprice) as avg_price,\n\
|
||||
> \ avg(l_discount) as avg_disc,\n\
|
||||
> \ count(*) as count_order\n\
|
||||
> \from\n\
|
||||
> \ lineitem\n\
|
||||
> \where\n\
|
||||
> \ l_shipdate <= date '1998-12-01' - interval '63' day (3)\n\
|
||||
> \group by\n\
|
||||
> \ l_returnflag,\n\
|
||||
> \ l_linestatus\n\
|
||||
> \order by\n\
|
||||
> \ l_returnflag,\n\
|
||||
> \ l_linestatus")
|
||||
> ,("Q2","\n\
|
||||
> \select\n\
|
||||
> \ s_acctbal,\n\
|
||||
> \ s_name,\n\
|
||||
> \ n_name,\n\
|
||||
> \ p_partkey,\n\
|
||||
> \ p_mfgr,\n\
|
||||
> \ s_address,\n\
|
||||
> \ s_phone,\n\
|
||||
> \ s_comment\n\
|
||||
> \from\n\
|
||||
> \ part,\n\
|
||||
> \ supplier,\n\
|
||||
> \ partsupp,\n\
|
||||
> \ nation,\n\
|
||||
> \ region\n\
|
||||
> \where\n\
|
||||
> \ p_partkey = ps_partkey\n\
|
||||
> \ and s_suppkey = ps_suppkey\n\
|
||||
> \ and p_size = 15\n\
|
||||
> \ and p_type like '%BRASS'\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_regionkey = r_regionkey\n\
|
||||
> \ and r_name = 'EUROPE'\n\
|
||||
> \ and ps_supplycost = (\n\
|
||||
> \ select\n\
|
||||
> \ min(ps_supplycost)\n\
|
||||
> \ from\n\
|
||||
> \ partsupp,\n\
|
||||
> \ supplier,\n\
|
||||
> \ nation,\n\
|
||||
> \ region\n\
|
||||
> \ where\n\
|
||||
> \ p_partkey = ps_partkey\n\
|
||||
> \ and s_suppkey = ps_suppkey\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_regionkey = r_regionkey\n\
|
||||
> \ and r_name = 'EUROPE'\n\
|
||||
> \ )\n\
|
||||
> \order by\n\
|
||||
> \ s_acctbal desc,\n\
|
||||
> \ n_name,\n\
|
||||
> \ s_name,\n\
|
||||
> \ p_partkey\n\
|
||||
> \limit 100")
|
||||
> ,("Q3","\n\
|
||||
> \ select\n\
|
||||
> \ l_orderkey,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount)) as revenue,\n\
|
||||
> \ o_orderdate,\n\
|
||||
> \ o_shippriority\n\
|
||||
> \ from\n\
|
||||
> \ customer,\n\
|
||||
> \ orders,\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ c_mktsegment = 'MACHINERY'\n\
|
||||
> \ and c_custkey = o_custkey\n\
|
||||
> \ and l_orderkey = o_orderkey\n\
|
||||
> \ and o_orderdate < date '1995-03-21'\n\
|
||||
> \ and l_shipdate > date '1995-03-21'\n\
|
||||
> \ group by\n\
|
||||
> \ l_orderkey,\n\
|
||||
> \ o_orderdate,\n\
|
||||
> \ o_shippriority\n\
|
||||
> \ order by\n\
|
||||
> \ revenue desc,\n\
|
||||
> \ o_orderdate\n\
|
||||
> \ limit 10")
|
||||
> ,("Q4","\n\
|
||||
> \ select\n\
|
||||
> \ o_orderpriority,\n\
|
||||
> \ count(*) as order_count\n\
|
||||
> \ from\n\
|
||||
> \ orders\n\
|
||||
> \ where\n\
|
||||
> \ o_orderdate >= date '1996-03-01'\n\
|
||||
> \ and o_orderdate < date '1996-03-01' + interval '3' month\n\
|
||||
> \ and exists (\n\
|
||||
> \ select\n\
|
||||
> \ *\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ l_orderkey = o_orderkey\n\
|
||||
> \ and l_commitdate < l_receiptdate\n\
|
||||
> \ )\n\
|
||||
> \ group by\n\
|
||||
> \ o_orderpriority\n\
|
||||
> \ order by\n\
|
||||
> \ o_orderpriority")
|
||||
> ,("Q5","\n\
|
||||
> \ select\n\
|
||||
> \ n_name,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount)) as revenue\n\
|
||||
> \ from\n\
|
||||
> \ customer,\n\
|
||||
> \ orders,\n\
|
||||
> \ lineitem,\n\
|
||||
> \ supplier,\n\
|
||||
> \ nation,\n\
|
||||
> \ region\n\
|
||||
> \ where\n\
|
||||
> \ c_custkey = o_custkey\n\
|
||||
> \ and l_orderkey = o_orderkey\n\
|
||||
> \ and l_suppkey = s_suppkey\n\
|
||||
> \ and c_nationkey = s_nationkey\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_regionkey = r_regionkey\n\
|
||||
> \ and r_name = 'EUROPE'\n\
|
||||
> \ and o_orderdate >= date '1997-01-01'\n\
|
||||
> \ and o_orderdate < date '1997-01-01' + interval '1' year\n\
|
||||
> \ group by\n\
|
||||
> \ n_name\n\
|
||||
> \ order by\n\
|
||||
> \ revenue desc")
|
||||
> ,("Q6","\n\
|
||||
> \ select\n\
|
||||
> \ sum(l_extendedprice * l_discount) as revenue\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ l_shipdate >= date '1997-01-01'\n\
|
||||
> \ and l_shipdate < date '1997-01-01' + interval '1' year\n\
|
||||
> \ and l_discount between 0.07 - 0.01 and 0.07 + 0.01\n\
|
||||
> \ and l_quantity < 24")
|
||||
> ,("Q7","\n\
|
||||
> \ select\n\
|
||||
> \ supp_nation,\n\
|
||||
> \ cust_nation,\n\
|
||||
> \ l_year,\n\
|
||||
> \ sum(volume) as revenue\n\
|
||||
> \ from\n\
|
||||
> \ (\n\
|
||||
> \ select\n\
|
||||
> \ n1.n_name as supp_nation,\n\
|
||||
> \ n2.n_name as cust_nation,\n\
|
||||
> \ extract(year from l_shipdate) as l_year,\n\
|
||||
> \ l_extendedprice * (1 - l_discount) as volume\n\
|
||||
> \ from\n\
|
||||
> \ supplier,\n\
|
||||
> \ lineitem,\n\
|
||||
> \ orders,\n\
|
||||
> \ customer,\n\
|
||||
> \ nation n1,\n\
|
||||
> \ nation n2\n\
|
||||
> \ where\n\
|
||||
> \ s_suppkey = l_suppkey\n\
|
||||
> \ and o_orderkey = l_orderkey\n\
|
||||
> \ and c_custkey = o_custkey\n\
|
||||
> \ and s_nationkey = n1.n_nationkey\n\
|
||||
> \ and c_nationkey = n2.n_nationkey\n\
|
||||
> \ and (\n\
|
||||
> \ (n1.n_name = 'PERU' and n2.n_name = 'IRAQ')\n\
|
||||
> \ or (n1.n_name = 'IRAQ' and n2.n_name = 'PERU')\n\
|
||||
> \ )\n\
|
||||
> \ and l_shipdate between date '1995-01-01' and date '1996-12-31'\n\
|
||||
> \ ) as shipping\n\
|
||||
> \ group by\n\
|
||||
> \ supp_nation,\n\
|
||||
> \ cust_nation,\n\
|
||||
> \ l_year\n\
|
||||
> \ order by\n\
|
||||
> \ supp_nation,\n\
|
||||
> \ cust_nation,\n\
|
||||
> \ l_year")
|
||||
> ,("Q8","\n\
|
||||
> \ select\n\
|
||||
> \ o_year,\n\
|
||||
> \ sum(case\n\
|
||||
> \ when nation = 'IRAQ' then volume\n\
|
||||
> \ else 0\n\
|
||||
> \ end) / sum(volume) as mkt_share\n\
|
||||
> \ from\n\
|
||||
> \ (\n\
|
||||
> \ select\n\
|
||||
> \ extract(year from o_orderdate) as o_year,\n\
|
||||
> \ l_extendedprice * (1 - l_discount) as volume,\n\
|
||||
> \ n2.n_name as nation\n\
|
||||
> \ from\n\
|
||||
> \ part,\n\
|
||||
> \ supplier,\n\
|
||||
> \ lineitem,\n\
|
||||
> \ orders,\n\
|
||||
> \ customer,\n\
|
||||
> \ nation n1,\n\
|
||||
> \ nation n2,\n\
|
||||
> \ region\n\
|
||||
> \ where\n\
|
||||
> \ p_partkey = l_partkey\n\
|
||||
> \ and s_suppkey = l_suppkey\n\
|
||||
> \ and l_orderkey = o_orderkey\n\
|
||||
> \ and o_custkey = c_custkey\n\
|
||||
> \ and c_nationkey = n1.n_nationkey\n\
|
||||
> \ and n1.n_regionkey = r_regionkey\n\
|
||||
> \ and r_name = 'MIDDLE EAST'\n\
|
||||
> \ and s_nationkey = n2.n_nationkey\n\
|
||||
> \ and o_orderdate between date '1995-01-01' and date '1996-12-31'\n\
|
||||
> \ and p_type = 'STANDARD ANODIZED BRASS'\n\
|
||||
> \ ) as all_nations\n\
|
||||
> \ group by\n\
|
||||
> \ o_year\n\
|
||||
> \ order by\n\
|
||||
> \ o_year")
|
||||
> ,("Q9","\n\
|
||||
> \ select\n\
|
||||
> \ nation,\n\
|
||||
> \ o_year,\n\
|
||||
> \ sum(amount) as sum_profit\n\
|
||||
> \ from\n\
|
||||
> \ (\n\
|
||||
> \ select\n\
|
||||
> \ n_name as nation,\n\
|
||||
> \ extract(year from o_orderdate) as o_year,\n\
|
||||
> \ l_extendedprice * (1 - l_discount) - ps_supplycost * l_quantity as amount\n\
|
||||
> \ from\n\
|
||||
> \ part,\n\
|
||||
> \ supplier,\n\
|
||||
> \ lineitem,\n\
|
||||
> \ partsupp,\n\
|
||||
> \ orders,\n\
|
||||
> \ nation\n\
|
||||
> \ where\n\
|
||||
> \ s_suppkey = l_suppkey\n\
|
||||
> \ and ps_suppkey = l_suppkey\n\
|
||||
> \ and ps_partkey = l_partkey\n\
|
||||
> \ and p_partkey = l_partkey\n\
|
||||
> \ and o_orderkey = l_orderkey\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and p_name like '%antique%'\n\
|
||||
> \ ) as profit\n\
|
||||
> \ group by\n\
|
||||
> \ nation,\n\
|
||||
> \ o_year\n\
|
||||
> \ order by\n\
|
||||
> \ nation,\n\
|
||||
> \ o_year desc")
|
||||
> ,("Q10","\n\
|
||||
> \ select\n\
|
||||
> \ c_custkey,\n\
|
||||
> \ c_name,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount)) as revenue,\n\
|
||||
> \ c_acctbal,\n\
|
||||
> \ n_name,\n\
|
||||
> \ c_address,\n\
|
||||
> \ c_phone,\n\
|
||||
> \ c_comment\n\
|
||||
> \ from\n\
|
||||
> \ customer,\n\
|
||||
> \ orders,\n\
|
||||
> \ lineitem,\n\
|
||||
> \ nation\n\
|
||||
> \ where\n\
|
||||
> \ c_custkey = o_custkey\n\
|
||||
> \ and l_orderkey = o_orderkey\n\
|
||||
> \ and o_orderdate >= date '1993-12-01'\n\
|
||||
> \ and o_orderdate < date '1993-12-01' + interval '3' month\n\
|
||||
> \ and l_returnflag = 'R'\n\
|
||||
> \ and c_nationkey = n_nationkey\n\
|
||||
> \ group by\n\
|
||||
> \ c_custkey,\n\
|
||||
> \ c_name,\n\
|
||||
> \ c_acctbal,\n\
|
||||
> \ c_phone,\n\
|
||||
> \ n_name,\n\
|
||||
> \ c_address,\n\
|
||||
> \ c_comment\n\
|
||||
> \ order by\n\
|
||||
> \ revenue desc\n\
|
||||
> \ limit 20")
|
||||
> ,("Q11","\n\
|
||||
> \ select\n\
|
||||
> \ ps_partkey,\n\
|
||||
> \ sum(ps_supplycost * ps_availqty) as value\n\
|
||||
> \ from\n\
|
||||
> \ partsupp,\n\
|
||||
> \ supplier,\n\
|
||||
> \ nation\n\
|
||||
> \ where\n\
|
||||
> \ ps_suppkey = s_suppkey\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_name = 'CHINA'\n\
|
||||
> \ group by\n\
|
||||
> \ ps_partkey having\n\
|
||||
> \ sum(ps_supplycost * ps_availqty) > (\n\
|
||||
> \ select\n\
|
||||
> \ sum(ps_supplycost * ps_availqty) * 0.0001000000\n\
|
||||
> \ from\n\
|
||||
> \ partsupp,\n\
|
||||
> \ supplier,\n\
|
||||
> \ nation\n\
|
||||
> \ where\n\
|
||||
> \ ps_suppkey = s_suppkey\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_name = 'CHINA'\n\
|
||||
> \ )\n\
|
||||
> \ order by\n\
|
||||
> \ value desc")
|
||||
> ,("Q12","\n\
|
||||
> \ select\n\
|
||||
> \ l_shipmode,\n\
|
||||
> \ sum(case\n\
|
||||
> \ when o_orderpriority = '1-URGENT'\n\
|
||||
> \ or o_orderpriority = '2-HIGH'\n\
|
||||
> \ then 1\n\
|
||||
> \ else 0\n\
|
||||
> \ end) as high_line_count,\n\
|
||||
> \ sum(case\n\
|
||||
> \ when o_orderpriority <> '1-URGENT'\n\
|
||||
> \ and o_orderpriority <> '2-HIGH'\n\
|
||||
> \ then 1\n\
|
||||
> \ else 0\n\
|
||||
> \ end) as low_line_count\n\
|
||||
> \ from\n\
|
||||
> \ orders,\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ o_orderkey = l_orderkey\n\
|
||||
> \ and l_shipmode in ('AIR', 'RAIL')\n\
|
||||
> \ and l_commitdate < l_receiptdate\n\
|
||||
> \ and l_shipdate < l_commitdate\n\
|
||||
> \ and l_receiptdate >= date '1994-01-01'\n\
|
||||
> \ and l_receiptdate < date '1994-01-01' + interval '1' year\n\
|
||||
> \ group by\n\
|
||||
> \ l_shipmode\n\
|
||||
> \ order by\n\
|
||||
> \ l_shipmode")
|
||||
> ,("Q13","\n\
|
||||
> \ select\n\
|
||||
> \ c_count,\n\
|
||||
> \ count(*) as custdist\n\
|
||||
> \ from\n\
|
||||
> \ (\n\
|
||||
> \ select\n\
|
||||
> \ c_custkey,\n\
|
||||
> \ count(o_orderkey)\n\
|
||||
> \ from\n\
|
||||
> \ customer left outer join orders on\n\
|
||||
> \ c_custkey = o_custkey\n\
|
||||
> \ and o_comment not like '%pending%requests%'\n\
|
||||
> \ group by\n\
|
||||
> \ c_custkey\n\
|
||||
> \ ) as c_orders (c_custkey, c_count)\n\
|
||||
> \ group by\n\
|
||||
> \ c_count\n\
|
||||
> \ order by\n\
|
||||
> \ custdist desc,\n\
|
||||
> \ c_count desc")
|
||||
> ,("Q14","\n\
|
||||
> \ select\n\
|
||||
> \ 100.00 * sum(case\n\
|
||||
> \ when p_type like 'PROMO%'\n\
|
||||
> \ then l_extendedprice * (1 - l_discount)\n\
|
||||
> \ else 0\n\
|
||||
> \ end) / sum(l_extendedprice * (1 - l_discount)) as promo_revenue\n\
|
||||
> \ from\n\
|
||||
> \ lineitem,\n\
|
||||
> \ part\n\
|
||||
> \ where\n\
|
||||
> \ l_partkey = p_partkey\n\
|
||||
> \ and l_shipdate >= date '1994-12-01'\n\
|
||||
> \ and l_shipdate < date '1994-12-01' + interval '1' month")
|
||||
> ,("Q15","\n\
|
||||
> \ /*create view revenue0 (supplier_no, total_revenue) as\n\
|
||||
> \ select\n\
|
||||
> \ l_suppkey,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount))\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ l_shipdate >= date '1995-06-01'\n\
|
||||
> \ and l_shipdate < date '1995-06-01' + interval '3' month\n\
|
||||
> \ group by\n\
|
||||
> \ l_suppkey;*/\n\
|
||||
> \ with\n\
|
||||
> \ revenue0 as\n\
|
||||
> \ (select\n\
|
||||
> \ l_suppkey as supplier_no,\n\
|
||||
> \ sum(l_extendedprice * (1 - l_discount)) as total_revenue\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ l_shipdate >= date '1995-06-01'\n\
|
||||
> \ and l_shipdate < date '1995-06-01' + interval '3' month\n\
|
||||
> \ group by\n\
|
||||
> \ l_suppkey)\n\
|
||||
> \ select\n\
|
||||
> \ s_suppkey,\n\
|
||||
> \ s_name,\n\
|
||||
> \ s_address,\n\
|
||||
> \ s_phone,\n\
|
||||
> \ total_revenue\n\
|
||||
> \ from\n\
|
||||
> \ supplier,\n\
|
||||
> \ revenue0\n\
|
||||
> \ where\n\
|
||||
> \ s_suppkey = supplier_no\n\
|
||||
> \ and total_revenue = (\n\
|
||||
> \ select\n\
|
||||
> \ max(total_revenue)\n\
|
||||
> \ from\n\
|
||||
> \ revenue0\n\
|
||||
> \ )\n\
|
||||
> \ order by\n\
|
||||
> \ s_suppkey")
|
||||
> ,("Q16","\n\
|
||||
> \ select\n\
|
||||
> \ p_brand,\n\
|
||||
> \ p_type,\n\
|
||||
> \ p_size,\n\
|
||||
> \ count(distinct ps_suppkey) as supplier_cnt\n\
|
||||
> \ from\n\
|
||||
> \ partsupp,\n\
|
||||
> \ part\n\
|
||||
> \ where\n\
|
||||
> \ p_partkey = ps_partkey\n\
|
||||
> \ and p_brand <> 'Brand#15'\n\
|
||||
> \ and p_type not like 'MEDIUM BURNISHED%'\n\
|
||||
> \ and p_size in (39, 26, 18, 45, 19, 1, 3, 9)\n\
|
||||
> \ and ps_suppkey not in (\n\
|
||||
> \ select\n\
|
||||
> \ s_suppkey\n\
|
||||
> \ from\n\
|
||||
> \ supplier\n\
|
||||
> \ where\n\
|
||||
> \ s_comment like '%Customer%Complaints%'\n\
|
||||
> \ )\n\
|
||||
> \ group by\n\
|
||||
> \ p_brand,\n\
|
||||
> \ p_type,\n\
|
||||
> \ p_size\n\
|
||||
> \ order by\n\
|
||||
> \ supplier_cnt desc,\n\
|
||||
> \ p_brand,\n\
|
||||
> \ p_type,\n\
|
||||
> \ p_size")
|
||||
> ,("Q17","\n\
|
||||
> \ select\n\
|
||||
> \ sum(l_extendedprice) / 7.0 as avg_yearly\n\
|
||||
> \ from\n\
|
||||
> \ lineitem,\n\
|
||||
> \ part\n\
|
||||
> \ where\n\
|
||||
> \ p_partkey = l_partkey\n\
|
||||
> \ and p_brand = 'Brand#52'\n\
|
||||
> \ and p_container = 'JUMBO CAN'\n\
|
||||
> \ and l_quantity < (\n\
|
||||
> \ select\n\
|
||||
> \ 0.2 * avg(l_quantity)\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ l_partkey = p_partkey\n\
|
||||
> \ )")
|
||||
> ,("Q18","\n\
|
||||
> \ select\n\
|
||||
> \ c_name,\n\
|
||||
> \ c_custkey,\n\
|
||||
> \ o_orderkey,\n\
|
||||
> \ o_orderdate,\n\
|
||||
> \ o_totalprice,\n\
|
||||
> \ sum(l_quantity)\n\
|
||||
> \ from\n\
|
||||
> \ customer,\n\
|
||||
> \ orders,\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ o_orderkey in (\n\
|
||||
> \ select\n\
|
||||
> \ l_orderkey\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ group by\n\
|
||||
> \ l_orderkey having\n\
|
||||
> \ sum(l_quantity) > 313\n\
|
||||
> \ )\n\
|
||||
> \ and c_custkey = o_custkey\n\
|
||||
> \ and o_orderkey = l_orderkey\n\
|
||||
> \ group by\n\
|
||||
> \ c_name,\n\
|
||||
> \ c_custkey,\n\
|
||||
> \ o_orderkey,\n\
|
||||
> \ o_orderdate,\n\
|
||||
> \ o_totalprice\n\
|
||||
> \ order by\n\
|
||||
> \ o_totalprice desc,\n\
|
||||
> \ o_orderdate\n\
|
||||
> \ limit 100")
|
||||
> ,("Q19","\n\
|
||||
> \ select\n\
|
||||
> \ sum(l_extendedprice* (1 - l_discount)) as revenue\n\
|
||||
> \ from\n\
|
||||
> \ lineitem,\n\
|
||||
> \ part\n\
|
||||
> \ where\n\
|
||||
> \ (\n\
|
||||
> \ p_partkey = l_partkey\n\
|
||||
> \ and p_brand = 'Brand#43'\n\
|
||||
> \ and p_container in ('SM CASE', 'SM BOX', 'SM PACK', 'SM PKG')\n\
|
||||
> \ and l_quantity >= 3 and l_quantity <= 3 + 10\n\
|
||||
> \ and p_size between 1 and 5\n\
|
||||
> \ and l_shipmode in ('AIR', 'AIR REG')\n\
|
||||
> \ and l_shipinstruct = 'DELIVER IN PERSON'\n\
|
||||
> \ )\n\
|
||||
> \ or\n\
|
||||
> \ (\n\
|
||||
> \ p_partkey = l_partkey\n\
|
||||
> \ and p_brand = 'Brand#25'\n\
|
||||
> \ and p_container in ('MED BAG', 'MED BOX', 'MED PKG', 'MED PACK')\n\
|
||||
> \ and l_quantity >= 10 and l_quantity <= 10 + 10\n\
|
||||
> \ and p_size between 1 and 10\n\
|
||||
> \ and l_shipmode in ('AIR', 'AIR REG')\n\
|
||||
> \ and l_shipinstruct = 'DELIVER IN PERSON'\n\
|
||||
> \ )\n\
|
||||
> \ or\n\
|
||||
> \ (\n\
|
||||
> \ p_partkey = l_partkey\n\
|
||||
> \ and p_brand = 'Brand#24'\n\
|
||||
> \ and p_container in ('LG CASE', 'LG BOX', 'LG PACK', 'LG PKG')\n\
|
||||
> \ and l_quantity >= 22 and l_quantity <= 22 + 10\n\
|
||||
> \ and p_size between 1 and 15\n\
|
||||
> \ and l_shipmode in ('AIR', 'AIR REG')\n\
|
||||
> \ and l_shipinstruct = 'DELIVER IN PERSON'\n\
|
||||
> \ )")
|
||||
> ,("Q20","\n\
|
||||
> \ select\n\
|
||||
> \ s_name,\n\
|
||||
> \ s_address\n\
|
||||
> \ from\n\
|
||||
> \ supplier,\n\
|
||||
> \ nation\n\
|
||||
> \ where\n\
|
||||
> \ s_suppkey in (\n\
|
||||
> \ select\n\
|
||||
> \ ps_suppkey\n\
|
||||
> \ from\n\
|
||||
> \ partsupp\n\
|
||||
> \ where\n\
|
||||
> \ ps_partkey in (\n\
|
||||
> \ select\n\
|
||||
> \ p_partkey\n\
|
||||
> \ from\n\
|
||||
> \ part\n\
|
||||
> \ where\n\
|
||||
> \ p_name like 'lime%'\n\
|
||||
> \ )\n\
|
||||
> \ and ps_availqty > (\n\
|
||||
> \ select\n\
|
||||
> \ 0.5 * sum(l_quantity)\n\
|
||||
> \ from\n\
|
||||
> \ lineitem\n\
|
||||
> \ where\n\
|
||||
> \ l_partkey = ps_partkey\n\
|
||||
> \ and l_suppkey = ps_suppkey\n\
|
||||
> \ and l_shipdate >= date '1994-01-01'\n\
|
||||
> \ and l_shipdate < date '1994-01-01' + interval '1' year\n\
|
||||
> \ )\n\
|
||||
> \ )\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_name = 'VIETNAM'\n\
|
||||
> \ order by\n\
|
||||
> \ s_name")
|
||||
> ,("Q21","\n\
|
||||
> \ select\n\
|
||||
> \ s_name,\n\
|
||||
> \ count(*) as numwait\n\
|
||||
> \ from\n\
|
||||
> \ supplier,\n\
|
||||
> \ lineitem l1,\n\
|
||||
> \ orders,\n\
|
||||
> \ nation\n\
|
||||
> \ where\n\
|
||||
> \ s_suppkey = l1.l_suppkey\n\
|
||||
> \ and o_orderkey = l1.l_orderkey\n\
|
||||
> \ and o_orderstatus = 'F'\n\
|
||||
> \ and l1.l_receiptdate > l1.l_commitdate\n\
|
||||
> \ and exists (\n\
|
||||
> \ select\n\
|
||||
> \ *\n\
|
||||
> \ from\n\
|
||||
> \ lineitem l2\n\
|
||||
> \ where\n\
|
||||
> \ l2.l_orderkey = l1.l_orderkey\n\
|
||||
> \ and l2.l_suppkey <> l1.l_suppkey\n\
|
||||
> \ )\n\
|
||||
> \ and not exists (\n\
|
||||
> \ select\n\
|
||||
> \ *\n\
|
||||
> \ from\n\
|
||||
> \ lineitem l3\n\
|
||||
> \ where\n\
|
||||
> \ l3.l_orderkey = l1.l_orderkey\n\
|
||||
> \ and l3.l_suppkey <> l1.l_suppkey\n\
|
||||
> \ and l3.l_receiptdate > l3.l_commitdate\n\
|
||||
> \ )\n\
|
||||
> \ and s_nationkey = n_nationkey\n\
|
||||
> \ and n_name = 'INDIA'\n\
|
||||
> \ group by\n\
|
||||
> \ s_name\n\
|
||||
> \ order by\n\
|
||||
> \ numwait desc,\n\
|
||||
> \ s_name\n\
|
||||
> \ limit 100")
|
||||
> ,("Q22","\n\
|
||||
> \ select\n\
|
||||
> \ cntrycode,\n\
|
||||
> \ count(*) as numcust,\n\
|
||||
> \ sum(c_acctbal) as totacctbal\n\
|
||||
> \ from\n\
|
||||
> \ (\n\
|
||||
> \ select\n\
|
||||
> \ substring(c_phone from 1 for 2) as cntrycode,\n\
|
||||
> \ c_acctbal\n\
|
||||
> \ from\n\
|
||||
> \ customer\n\
|
||||
> \ where\n\
|
||||
> \ substring(c_phone from 1 for 2) in\n\
|
||||
> \ ('41', '28', '39', '21', '24', '29', '44')\n\
|
||||
> \ and c_acctbal > (\n\
|
||||
> \ select\n\
|
||||
> \ avg(c_acctbal)\n\
|
||||
> \ from\n\
|
||||
> \ customer\n\
|
||||
> \ where\n\
|
||||
> \ c_acctbal > 0.00\n\
|
||||
> \ and substring(c_phone from 1 for 2) in\n\
|
||||
> \ ('41', '28', '39', '21', '24', '29', '44')\n\
|
||||
> \ )\n\
|
||||
> \ and not exists (\n\
|
||||
> \ select\n\
|
||||
> \ *\n\
|
||||
> \ from\n\
|
||||
> \ orders\n\
|
||||
> \ where\n\
|
||||
> \ o_custkey = c_custkey\n\
|
||||
> \ )\n\
|
||||
> \ ) as custsale\n\
|
||||
> \ group by\n\
|
||||
> \ cntrycode\n\
|
||||
> \ order by\n\
|
||||
> \ cntrycode")
|
||||
> ]
|
||||
Loading…
Reference in a new issue