Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Internal Test: Verifying names of different item types and edge cases.
      
      '// 1. Operator with symbolic name
      Dim plusOp = uc.ItemOf("+", uCalc.Properties(ItemIs.Infix))
      Console.WriteLine($"Operator Name: '{plusOp.Name}'")
      
      '// 2. Token with internal name
      Dim token = uc.ExpressionTokens(TokenType.AlphaNumeric)
      Console.WriteLine($"Token Name: '{token.Name}'")
      
      '// 3. Empty/invalid item
      Dim emptyItem = uc.ItemOf("NonExistentItem")
      Console.WriteLine($"Empty Item Name: '{emptyItem.Name}'")
      Console.WriteLine($"Is Found: {emptyItem.IsProperty(ItemIs.NotFound)=False}")
   End Sub
End Module