' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
 
Namespace Microsoft.VisualBasic.Forms.Tests
    Public Module GetUniqueUtilities
 
        Friend Function GetUniqueInteger(positiveOnly As Boolean) As Integer
            If positiveOnly Then
                Return Math.Abs(Guid.NewGuid().GetHashCode())
            End If
            Return Guid.NewGuid().GetHashCode()
        End Function
 
        Friend Function GetUniqueFileName() As String
            Return $"Test{GetUniqueText()}"
        End Function
 
        Friend Function GetUniqueText() As String
            Return Guid.NewGuid().ToString("D")
        End Function
 
    End Module
End Namespace