Skip to content

Instantly share code, notes, and snippets.

@smallgeek
Created August 26, 2012 08:03
Show Gist options
  • Select an option

  • Save smallgeek/3475985 to your computer and use it in GitHub Desktop.

Select an option

Save smallgeek/3475985 to your computer and use it in GitHub Desktop.
NaturalSpec_Tutorial_6_2
[<Scenario>]
let When_sorting_empty_list() =
quicksortScenario []
|> Verify
[<Scenario>]
let When_sorting_small_list() =
quicksortScenario [2;1;8;15;5;22]
|> Verify
[<ScenarioTemplate(100)>]
[<ScenarioTemplate(1000)>]
[<ScenarioTemplate(2500)>]
let When_sorting_ordered_list n =
quicksortScenario [1..n]
|> Verify
[<ScenarioTemplate(100)>]
[<ScenarioTemplate(1000)>]
[<ScenarioTemplate(2500)>]
let When_sorting_random_list n =
quicksortScenario (list_of_random_ints n)
|> Verify
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment