Idris2/tests/idris2/coverage010/casetot.idr

module Main

import Data.String
import Data.Vect
import System

%default total

ints : Vect 4 Int
ints = [1, 2, 3, 4]

main : IO ()
main = do
  [_, arg] <- getArgs
      | _ => do putStrLn "One argument expected."
                exitFailure
  let n = stringToNatOrZ arg
  -- case block in a case block, which is needed to test this properly
  case natToFin n (length ints + 1) of
       Nothing => do putStrLn "Invalid number."
                     exitFailure
       Just (FS i) => putStrLn $ "Value: " ++ show (index i ints)
Calculate compile time references even in case If we don't do this, we don't look inside case blocks to check they cover, and so we might miss coverage errors in nested case blocks. Fixes #202 2020-05-30 23:53:29 +03:00			`module Main`

[ refactor ] Remove Data.Strings module (#1607) 2021-06-28 15:48:37 +03:00			`import Data.String`
Calculate compile time references even in case If we don't do this, we don't look inside case blocks to check they cover, and so we might miss coverage errors in nested case blocks. Fixes #202 2020-05-30 23:53:29 +03:00			`import Data.Vect`
			`import System`

			`%default total`

			`ints : Vect 4 Int`
			`ints = [1, 2, 3, 4]`

			`main : IO ()`
			`main = do`
			`[_, arg] <- getArgs`
			`\| _ => do putStrLn "One argument expected."`
			`exitFailure`
			`let n = stringToNatOrZ arg`
Delay building references for case blocks ...until the definition is complete. This is necessary since sometimes information outside the case block can help resolve interfaces, and in the simplest case, we might just have delayed resolving a default Integer. It turns out this was also an obscure bug waiting to happen with coverage checking of nested case blocks (so there's a test update there too). Fixes #443 2020-07-18 21:22:03 +03:00			`-- case block in a case block, which is needed to test this properly`
Calculate compile time references even in case If we don't do this, we don't look inside case blocks to check they cover, and so we might miss coverage errors in nested case blocks. Fixes #202 2020-05-30 23:53:29 +03:00			`case natToFin n (length ints + 1) of`
			`Nothing => do putStrLn "Invalid number."`
			`exitFailure`
			`Just (FS i) => putStrLn $ "Value: " ++ show (index i ints)`