HsPerl5-0.0.2: test.hs

{-# LANGUAGE ExtendedDefaultRules #-}
import Language.Perl5

main :: IO ()
main = withPerl5 $ do
    _Test_  <- use "Test"

    "plan".!("tests", 2)

    x1 <- "crypt".:("salt", "plaintext")
    x2 <- "crypt".:("salt", "plaintext") :: IO String

    "ok".![x1, x2]

    ver <- _Test_.$"VERSION"$(1.00)
    "ok".!(ver :: String)

dbiDemo :: IO ()
dbiDemo = do
    _DBI_   <- use "DBI"

    dbh <- _DBI_.$"connect"$"dbi:SQLite:foo"
    dbh.$!"do"$"CREATE TABLE foo (id, moose)"