simple-sql-parser/tests/Language/SQL/SimpleSQL/Oracle.hs

-- Tests for oracle dialect parsing

{-# LANGUAGE OverloadedStrings #-}
module Language.SQL.SimpleSQL.Oracle (oracleTests) where

import Language.SQL.SimpleSQL.TestTypes
import Language.SQL.SimpleSQL.Syntax
import Language.SQL.SimpleSQL.TestRunners

oracleTests :: TestItem
oracleTests = Group "oracle dialect"
    [oracleLobUnits]


oracleLobUnits :: TestItem
oracleLobUnits = Group "oracleLobUnits"
    [testScalarExpr oracle "cast (a as varchar2(3 char))"
     $ Cast (Iden [Name Nothing "a"]) (
         PrecLengthTypeName [Name Nothing "varchar2"] 3 Nothing (Just PrecCharacters))
    ,testScalarExpr oracle "cast (a as varchar2(3 byte))"
     $ Cast (Iden [Name Nothing "a"]) (
         PrecLengthTypeName [Name Nothing "varchar2"] 3 Nothing (Just PrecOctets))
    ,testStatement oracle
      "create table t (a varchar2(55 BYTE));"
     $ CreateTable [Name Nothing "t"]
       [TableColumnDef $ ColumnDef (Name Nothing "a")
        (Just (PrecLengthTypeName [Name Nothing "varchar2"] 55 Nothing (Just PrecOctets)))
        []]
       False
    ]