1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37  // This file was autogenerated based on version 1.0.0 of the canonical data.
module PrimeFactorsTest
open FsUnit.Xunit
open Xunit
open PrimeFactors
[<Fact>]
let ``No factors`` () =
factors 1L > should be Empty
[<Fact(Skip = "Remove to run test")>]
let ``Prime number`` () =
factors 2L > should equal [2]
[<Fact(Skip = "Remove to run test")>]
let ``Square of a prime`` () =
factors 9L > should equal [3; 3]
[<Fact(Skip = "Remove to run test")>]
let ``Cube of a prime`` () =
factors 8L > should equal [2; 2; 2]
[<Fact(Skip = "Remove to run test")>]
let ``Product of primes and nonprimes`` () =
factors 12L > should equal [2; 2; 3]
[<Fact(Skip = "Remove to run test")>]
let ``Product of primes`` () =
factors 901255L > should equal [5; 17; 23; 461]
[<Fact(Skip = "Remove to run test")>]
let ``Factors include a large prime`` () =
factors 93819012551L > should equal [11; 9539; 894119]
