File: CoreTests.hs

package info (click to toggle)
haskell-futhark 0.25.32-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 18,236 kB
  • sloc: haskell: 100,484; ansic: 12,100; python: 3,440; yacc: 785; sh: 561; javascript: 558; lisp: 399; makefile: 277
file content (13 lines) | stat: -rw-r--r-- 353 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
{-# OPTIONS_GHC -fno-warn-orphans #-}

module Language.Futhark.CoreTests () where

import Language.Futhark.Core
import Language.Futhark.PrimitiveTests ()
import Test.QuickCheck

instance Arbitrary Name where
  arbitrary = nameFromString <$> listOf1 (elements ['a' .. 'z'])

instance Arbitrary VName where
  arbitrary = VName <$> arbitrary <*> arbitrary