Question

我想使用SmallCheck来测试我的代码。我设法生成任意一对整数的列表，但这不是我的类型应该包含的。该列表表示一组范围，其中[1,3),[4,6)将被编码/存储为[(1,3),(4,6)]。

这些是我的范围的规范化形式的不变量：

fst a < snd a 
snd a < fst b where a is before b in the list

我想将此信息传达给SmallCheck，以便它不会产生我丢弃的大量值，因为它们不能满足我的不变量，但也许这是不可能的。

如何生成满足不变量的列表？

Answer 1

在build-int类型（Int，List）上支持特定于应用程序的类型。这不仅适用于SmallCheck，也适用于任何语言的任何软件。

data Interval = Interval (Int,Int)
data Domain = Domain [Interval]

编写强制执行不变量的智能构造函数。

interval :: Int -> Int -> Interval
interval x y = Interval (min x y, max x y) -- if you want this

domain :: [Interval] -> Domain
domain ints = Domain ... (something that sorts intervals, and perhaps merges them)

然后使用它们来创建串行实例。

Answer 2

我同意使用用户定义的类型更好地解决此问题。

我假设您正在编写一个算法，该算法具有按升序排序的不相交半开区间的某些属性，然后以下提供Serial个实例。

我决定给Interval和AscDisjIntervals个不同的生成器而不是实现另一个生成器。

AscDisjIntervals的算法正如我在评论

中所写的那样

生成非负Integer的列表（这是为了避免Int溢出）
对这些整数求和（这断言所有值的升序
从此列表生成对（如果列表具有奇数个元素，则丢弃最后一个元素）

Intervals.hs

{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
module Intervals where

newtype Interval = I (Integer,Integer) deriving(Eq)

instance Show Interval where
    show (I (a,b)) = "["++show a ++ ", "++ show b ++ "]"

instance Monad m => Serial m Interval where
    series = let a_b a b = I (getNonNegative $ min a b , getNonNegative $ max a b) 
             in cons2 a_b

newtype AscDisjIntervals = ADI [Interval] deriving (Eq)

instance Show AscDisjIntervals where
    show (ADI x) = "|- "++ (unwords $ map show x) ++ " ->"

instance Monad m => Serial m AscDisjIntervals where
    series = cons1 aux1

aux1 :: [NonNegative Int] -> AscDisjIntervals
aux1 xx = ADI . generator . tail $ scanl (+) 0 xx
  where generator [] = []
        generator (_:[]) = []
        generator (x:y:xs) = let i = I (getNonNegative x ,getNonNegative y)
                        in i:generator xs

注意：我只编译了程序，没有测试任何属性。

SmallCheck生成满足不变量的数据

2 个答案: