livecode/tests/lcs/core/database/sqlite_uri.livecodescript at develop · livecode/livecode

This repository was archived by the owner on Aug 31, 2021. It is now read-only.

64 lines (50 loc) · 2.24 KB

script "TestSQLiteUri"
local lDatabaseID, lDatabaseDir
private command __createDatabase pDatabaseFile, pURI
   if pURI is false then
      put revOpenDatabase("sqlite",pDatabaseFile,,,,) into lDatabaseID
      put revOpenDatabase("sqlite","file:" & pDatabaseFile,"uri",,,) into lDatabaseID
end __createDatabase
private command __deleteDatabase pDatabaseFile
   revCloseDatabase lDatabaseID
   delete file pDatabaseFile
end __deleteDatabase
on TestSetup
   TestSkipIfNot "database", "sqlite"
   TestSkipIfNot "external", "revsecurity"
   TestLoadExternal "revdb"
   put TestGetEngineRepositoryPath() & "/_tests/_build/sqlite_uri_test" into lDatabaseDir
   create directory lDatabaseDir
end TestSetup
on TestTeardown
   delete directory lDatabaseDir
end TestTeardown
on TestBinaryWithOptionURI
   local tDatabaseFile   
   put lDatabaseDir & "/sqlite-uri.db" into tDatabaseFile
   __createDatabase tDatabaseFile, true
   TestAssert "check creation of SQLite database with uri option", lDatabaseID is a number
   __deleteDatabase tDatabaseFile
   local tDatabaseFileReadOnly  
   put lDatabaseDir & "/sqlite-uri.db?mode=ro" into tDatabaseFileReadOnly
   __createDatabase tDatabaseFileReadOnly, true
   TestAssert "check creation of a read-only SQLite database with uri option", lDatabaseID is not a number
   local tDatabaseFileReadWrite  
   put lDatabaseDir & "/sqlite-uri.db?mode=rw" into tDatabaseFileReadWrite
   __createDatabase tDatabaseFileReadWrite, true
   TestAssert "check creation of SQLite read-write database with uri option", lDatabaseID is not a number
   local tDatabaseFileReadWriteCreate 
   put lDatabaseDir & "/sqlite-uri.db?mode=rwc" into tDatabaseFileReadWriteCreate
   __createDatabase tDatabaseFileReadWriteCreate, true
   TestAssert "check creation of read-write-create SQLite database with uri option", lDatabaseID is a number
   __deleteDatabase tDatabaseFileReadWriteCreate
end TestBinaryWithOptionURI
on TestBinaryWithoutOptionURI
   local tDatabaseFile
   put lDatabaseDir & "/sqlite-no-uri.db" into tDatabaseFile
   __createDatabase tDatabaseFile, false
   TestAssert "check creation of SQLite database without uri option", lDatabaseID is a number
   __deleteDatabase tDatabaseFile
end TestBinaryWithoutOptionURI

Navigation Menu

Uh oh!

Uh oh!

FilesExpand file tree

sqlite_uri.livecodescript

Latest commit

History

sqlite_uri.livecodescript

File metadata and controls