Describe "Get-Random DRT Unit Tests" -Tags DRT{
    $testData = @(
        @{ Name = 'No params'; Maximum = $null; Minimum = $null; GreaterThan = -1; LessThan = ([int32]::MaxValue); Type = 'System.Int32' }
        @{ Name = 'Just maximum: 100'; Maximum = 100; Minimum = $null; GreaterThan = -1; LessThan = 100; Type = 'System.Int32' }
        @{ Name = 'Just maximum: 10000'; Maximum = 10000; Minimum = $null; GreaterThan = -1; LessThan = 10000; Type = 'System.Int32' }
        @{ Name = 'maximum:0, Minimum:-100'; Maximum = 0; Minimum = -100; GreaterThan = -101; LessThan = 0; Type = 'System.Int32' }
        @{ Name = 'maximum:100, Minimum:-100'; Maximum = 100; Minimum = -100; GreaterThan = -101; LessThan = 100; Type = 'System.Int32' }
        @{ Name = 'maximum:-100, Minimum:-200'; Maximum = -100; Minimum = -200; GreaterThan = -201; LessThan = -100; Type = 'System.Int32' }
        @{ Name = 'maximum:(-100), Minimum:(-200)'; Maximum = (-100); Minimum = (-200); GreaterThan = -201; LessThan = -100; Type = 'System.Int32' }
        @{ Name = 'maximum:8, Minimum:5'; Maximum = '8'; Minimum = 5; GreaterThan = 4; LessThan = 8; Type = 'System.Int32' }
        @{ Name = 'maximum:8, Minimum:5'; Maximum = 8; Minimum = '5'; GreaterThan = 4; LessThan = 8; Type = 'System.Int32' }
        @{ Name = 'maximum:+100, Minimum:0'; Maximum = +100; Minimum = 0; GreaterThan = -1; LessThan = 100; Type = 'System.Int32' }
        @{ Name = 'maximum:+100, Minimum:0'; Maximum = '+100'; Minimum = 0; GreaterThan = -1; LessThan = 100; Type = 'System.Int32' }
        @{ Name = 'maximum:+100, Minimum:-100'; Maximum = '+100'; Minimum = '-100'; GreaterThan = -101; LessThan = 100; Type = 'System.Int32' }
        @{ Name = 'maximum:1kb, Minimum:0'; Maximum = '1kb'; Minimum = 0; GreaterThan = -1; LessThan = 1024; Type = 'System.Int32' }
        @{ Name = 'Just maximum:MaxValue'; Maximum = ([int64]::MaxValue); Minimum = $null; GreaterThan = ([int64]-1); LessThan = ([int64]::MaxValue); Type = 'System.Int64' }
        @{ Name = 'Just maximum:([int64]100)'; Maximum = ([int64]100); Minimum = $null; GreaterThan = ([int64]-1); LessThan = ([int64]100); Type = 'System.Int64' }
        @{ Name = 'Just maximum:100000000000'; Maximum = 100000000000; Minimum = $null; GreaterThan = ([int64]-1); LessThan = ([int64]100000000000); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]0), Minimum:([int64]-100)'; Maximum = ([int64]0); Minimum = ([int64]-100); GreaterThan = ([int64]-101); LessThan = ([int64]0); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]100), Minimum:([int64]-100)'; Maximum = ([int64]100); Minimum = ([int64]-100); GreaterThan = ([int64]-101); LessThan = ([int64]100); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]-100), Minimum:([int64]-200)'; Maximum = ([int64]-100); Minimum = ([int64]-200); GreaterThan = ([int64]-201); LessThan = ([int64]-100); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64](-100)), Minimum:([int64](-200))'; Maximum = ([int64](-100)); Minimum = ([int64](-200)); GreaterThan = ([int64]-201); LessThan = ([int64]-100); Type = 'System.Int64' }
        @{ Name = 'maximum:8, Minimum:([int64]5)'; Maximum = '8'; Minimum = ([int64]5); GreaterThan = ([int64]4); LessThan = ([int64]8); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]8), Minimum:5'; Maximum = ([int64]8); Minimum = '5'; GreaterThan = ([int64]4); LessThan = ([int64]8); Type = 'System.Int64' }
        @{ Name = 'maximum:+100, Minimum:([int64]0)'; Maximum = +100; Minimum = ([int64]0); GreaterThan = ([int64]-1); LessThan = ([int64]100); Type = 'System.Int64' }
        @{ Name = 'maximum:+100, Minimum:([int64]0)'; Maximum = '+100'; Minimum = ([int64]0); GreaterThan = ([int64]-1); LessThan = ([int64]100); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]0), Minimum:-100'; Maximum = ([int64]0); Minimum = '-100'; GreaterThan = ([int64]-101); LessThan = ([int64]0); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]1048585, Minimum:1mb'; Maximum = ([int64]1048585); Minimum = '1mb'; GreaterThan = ([int64]1048575); LessThan = ([int64]1048585); Type = 'System.Int64' }
        @{ Name = 'maximum:1tb, Minimum:10mb'; Maximum = '1tb'; Minimum = '10mb'; GreaterThan = ([int64]10485759); LessThan = ([int64]1099511627776); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64]::MaxValue), Minimum:([int64]::MinValue)'; Maximum = ([int64]::MaxValue); Minimum = ([int64]::MinValue); GreaterThan = ([int64]::MinValue); LessThan = ([int64]::MaxValue); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64](([int]::MaxValue)+15)), Minimum:([int64](([int]::MaxValue)+10))'; Maximum = ([int64](([int]::MaxValue)+15)); Minimum = ([int64](([int]::MaxValue)+10)); GreaterThan = ([int64](([int]::MaxValue)+9)); LessThan = ([int64](([int]::MaxValue)+15)); Type = 'System.Int64' }
        @{ Name = 'maximum:([int64](([int]::MaxValue)+150)), Minimum:([int64](([int]::MaxValue)+100))'; Maximum = ([int64](([int]::MaxValue)+150)); Minimum = ([int64](([int]::MaxValue)+100)); GreaterThan = ([int64](([int]::MaxValue)+99)); LessThan = ([int64](([int]::MaxValue)+150)); Type = 'System.Int64' }
        @{ Name = 'maximum:100099000001, Minimum:100000000001'; Maximum = '100099000001'; Minimum = 100000000001; GreaterThan = ([int64]10000000000); LessThan = ([int64]100099000001); Type = 'System.Int64' }
        @{ Name = 'maximum:100000002230, Minimum:100000002222'; Maximum = 100000002230; Minimum = '100000002222'; GreaterThan = ([int64]100000002221); LessThan = ([int64]100000002230); Type = 'System.Int64' }
        @{ Name = 'maximum:90000000000, Minimum:4'; Maximum = 90000000000; Minimum = 4; GreaterThan = ([int64]3); LessThan = ([int64]90000000000); Type = 'System.Int64' }
        @{ Name = 'Just maximum:100.0'; Maximum = 100.0; Minimum = $null; GreaterThan = -1.0; LessThan = 100.0; Type = 'System.Double' }
        @{ Name = 'maximum:0.0, Minimum:-100.0'; Maximum = 0.0; Minimum = -100.0; GreaterThan = -101.0; LessThan = 0.0; Type = 'System.Double' }
        @{ Name = 'maximum:100.0, Minimum:-100.0'; Maximum = 100.0; Minimum = -100.0; GreaterThan = -101.0; LessThan = 100.0; Type = 'System.Double' }
        @{ Name = 'maximum:8.0, Minimum:5'; Maximum = 8.0; Minimum = 5; GreaterThan = 4.0; LessThan = 8.0; Type = 'System.Double' }
        @{ Name = 'maximum:8, Minimum:5.0'; Maximum = 8; Minimum = 5.0; GreaterThan = 4.0; LessThan = 8.0; Type = 'System.Double' }
        @{ Name = 'maximum:20., Minimum:0.0'; Maximum = 20.; Minimum = 0.0; GreaterThan = -1.0; LessThan = 20.0; Type = 'System.Double' }
        @{ Name = 'maximum:20., Minimum:0.0'; Maximum = '20.'; Minimum = 0.0; GreaterThan = -1.0; LessThan = 20.0; Type = 'System.Double' }
        @{ Name = 'maximum:+100.0, Minimum:0'; Maximum = +100.0; Minimum = 0; GreaterThan = -1.0; LessThan = 100.0; Type = 'System.Double' }
        @{ Name = 'maximum:+100.0, Minimum:0'; Maximum = '+100.0'; Minimum = 0; GreaterThan = -1.0; LessThan = 100.0; Type = 'System.Double' }
        @{ Name = 'Just Minimum:1.0e+100'; Maximum = $null; Minimum = 1.0e+100; GreaterThan = 1.0e+99; LessThan = ([double]::MaxValue); Type = 'System.Double' }
        @{ Name = 'maximum:([double]::MaxValue), Minimum:([double]::MinValue)'; Maximum = ([double]::MaxValue); Minimum = ([double]::MinValue); GreaterThan = ([double]::MinValue); LessThan = ([double]::MaxValue); Type = 'System.Double' }

    )

    # minimum is always set to the actual low end of the range, details refer to closed issue #887.
    It "get a correct random number for '<Name>'" -TestCases $testData {
        param($maximum, $minimum, $greaterThan, $lessThan, $type)

        $result = Get-Random -Maximum $maximum -Minimum $minimum
        $result | Should BeGreaterThan $greaterThan
        $result | Should BeLessThan $lessThan
        $result.GetType().FullName | Should Be $type

    }
    
    It "Tests for random-numbers mode" {         
        #Verify Error
        { get-random -Minimum 20 -Maximum 10 } | Should Throw "The Minimum value (20) cannot be greater than or equal to the Maximum value (10)"
        { get-random -Minimum 20 -Maximum 20 } | Should Throw "The Minimum value (20) cannot be greater than or equal to the Maximum value (20)"
        { get-random -Minimum -10 -Maximum -20 } | Should Throw "The Minimum value (-10) cannot be greater than or equal to the Maximum value (-20)"
        { get-random -Minimum -20 -Maximum -20 } | Should Throw "The Minimum value (-20) cannot be greater than or equal to the Maximum value (-20)"
        { get-random -Minimum 20.0 -Maximum 10.0 } | Should Throw "The Minimum value (20) cannot be greater than or equal to the Maximum value (10)"
        { get-random -Minimum 20.0 -Maximum 20.0 } | Should Throw "The Minimum value (20) cannot be greater than or equal to the Maximum value (20)"
        { get-random -Minimum -10.0 -Maximum -20.0 } | Should Throw "The Minimum value (-10) cannot be greater than or equal to the Maximum value (-20)"
        { get-random -Minimum -20.0 -Maximum -20.0 } | Should Throw "The Minimum value (-20) cannot be greater than or equal to the Maximum value (-20)"
        { get-random -10 } | Should Throw "The Minimum value (0) cannot be greater than or equal to the Maximum value (-10)"
        { $x = -10; get-random $x } | Should Throw "The Minimum value (0) cannot be greater than or equal to the Maximum value (-10)"
    }

    It "Tests for setting the seed" {
        $result1 = (get-random -SetSeed 123), (get-random)
        $result2 = (get-random -SetSeed 123), (get-random)
        $result1.Length | Should Be $result2.Length
        for($i = 0;$i -lt $result1.Length;$i++)
        {
            $result1[$i] | Should Be $result2[$i]
        }
    }
}

Describe "Get-Random" {
    It "Should return a random number greater than -1 " {
	Get-Random | Should BeGreaterThan -1
    }
    It "Should return a random number less than 100 " {
	Get-Random -Maximum 100 | Should BeLessThan 100
	Get-Random -Maximum 100 | Should BeGreaterThan -1
    }

    It "Should return a random number less than 100 and greater than -100 " {
	$randomNumber = Get-Random -Minimum -100 -Maximum 100
	$randomNumber | Should BeLessThan 100
	$randomNumber | Should BeGreaterThan -101
    }

    It "Should return a random number less than 20.93 and greater than 10.7 " {
	$randomNumber = Get-Random -Minimum 10.7 -Maximum 20.93
	$randomNumber | Should BeLessThan 20.93
	$randomNumber | Should BeGreaterThan 10.7
    }

    It "Should return same number for both Get-Random when switch SetSeed is used " {
	$firstRandomNumber = Get-Random -Maximum 100 -SetSeed 23
	$secondRandomNumber = Get-Random -Maximum 100 -SetSeed 23
	$firstRandomNumber | Should be $secondRandomNumber
    }

    It "Should return a number from 1,2,3,5,8,13 " {
	$randomNumber = Get-Random -InputObject 1, 2, 3, 5, 8, 13
	$randomNumber | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
    }

    It "Should return an array " {
	$randomNumber = Get-Random -InputObject 1, 2, 3, 5, 8, 13 -Count 3
	$randomNumber.GetType().BaseType | Should Be array
    }

    It "Should return three random numbers for array of 1,2,3,5,8,13 " {
	$randomNumber = Get-Random -InputObject 1, 2, 3, 5, 8, 13 -Count 3
	$randomNumber[0] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[1] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[2] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[3] | Should BeNullOrEmpty
    }

    It "Should return all the numbers for array of 1,2,3,5,8,13 in no particular order" {
	$randomNumber = Get-Random -InputObject 1, 2, 3, 5, 8, 13 -Count ([int]::MaxValue)
	$randomNumber[0] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[1] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[2] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[3] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[4] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[5] | Should Be (1 -or 2 -or 3 -or 5 -or 8 -or 13)
	$randomNumber[6] | Should BeNullOrEmpty
    }

    It "Should return for a string collection " {
	$randomNumber = Get-Random -InputObject "red", "yellow", "blue"
	$randomNumber | Should Be ("red" -or "yellow" -or "blue")
    }

    It "Should return a number for hexdecimal " {
	$randomNumber = Get-Random 0x07FFFFFFFFF
	$randomNumber | Should BeLessThan 549755813887
	$randomNumber | Should BeGreaterThan 0
    }

    It "Should return false, check two random numbers are not equal when not using the SetSeed switch " {
	$firstRandomNumber = Get-Random
	$secondRandomNumber = Get-Random
	$firstRandomNumber | Should Not Be $secondRandomNumber
    }

    It "Should return the same number for hexidemical number and regular number when the switch SetSeed it used " {
	$firstRandomNumber = Get-Random 0x07FFFFFFFF -SetSeed 20
	$secondRandomNumber = Get-Random 34359738367 -SetSeed 20
	$firstRandomNumber | Should Be @secondRandomNumber
    }
    It "Should throw an error because the hexidecial number is to large " {
	{ Get-Random 0x07FFFFFFFFFFFFFFFF } | Should Throw "Value was either too large or too small for a UInt32"
    }
}