jvm-binary-0.1.0: test/Language/JVM/Attribute/BootstrapMethodsTest.hs

{-# LANGUAGE FlexibleInstances #-}

module Language.JVM.Attribute.BootstrapMethodsTest where

import           SpecHelper

import           Language.JVM.ConstantTest               ()

import           Language.JVM.Attribute.BootstrapMethods
import           Language.JVM

prop_roundtrip_BootstrapMethods :: BootstrapMethods High -> Property
prop_roundtrip_BootstrapMethods = isoRoundtrip

instance Arbitrary (BootstrapMethods High) where
  arbitrary = genericArbitraryU

instance Arbitrary (BootstrapMethod High) where
  arbitrary =
    BootstrapMethod <$> arbitrary <*> (SizedList <$> listOf (resize 1 arbitrary))