Skip to content

Commit

Permalink
more tests
Browse files Browse the repository at this point in the history
  • Loading branch information
edgarfgp committed Jan 14, 2025
1 parent b8561be commit e19607a
Showing 1 changed file with 6 additions and 0 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,9 @@ module M =
type B<'u> with
member this.Y = this.X
type FooExt =
static member Bar(this: A<'u>, value: A<'u>) = this
"""
|> typecheck
|> shouldFail
Expand All @@ -36,6 +39,9 @@ type A<[<Measure>]'u>(x : int<'u>) =
module M =
type A<[<Measure>] 'u> with // Note the Measure attribute
member this.Y = this.X
type FooExt =
static member Bar(this: A<'u>, value: A<'u>) = this
"""
|> typecheck
|> shouldSucceed
Expand Down

0 comments on commit e19607a

Please sign in to comment.