Initial commit

Author: joechung2008

.github/workflows/ci.yml

@@ -0,0 +1,39 @@
+name: CI
+
+on:
+  push:
+    branches: [main]
+  pull_request:
+    branches: [main]
+
+jobs:
+  build-and-test:
+    runs-on: ubuntu-latest
+
+    strategy:
+      matrix:
+        dotnet-version: [8.0]
+
+    steps:
+      - uses: actions/checkout@v4
+
+      - name: Use .NET ${{ matrix.dotnet-version }}
+        uses: actions/setup-dotnet@v3
+        with:
+          dotnet-version: ${{ matrix.dotnet-version }}
+
+      - name: Restore dependencies
+        run: dotnet restore json-vb.sln
+
+      - name: Build
+        run: dotnet build json-vb.sln --configuration Release --no-restore
+
+      - name: Test
+        run: dotnet test JsonParser.Tests/JsonParser.Tests.vbproj --configuration Release --no-build --verbosity normal --collect:"XPlat Code Coverage"
+
+      - name: Upload coverage reports
+        uses: actions/upload-artifact@v4
+        with:
+          name: coverage-report-net-${{ matrix.dotnet-version }}
+          path: ./JsonParser.Tests/TestResults/*/coverage.cobertura.xml
+          if-no-files-found: ignore

.gitignore

@@ -0,0 +1,54 @@
+# .NET
+bin/
+obj/
+*.user
+*.suo
+.vs/
+packages/
+*.nupkg
+*.snupkg
+*.log
+*.tmp
+*.cache
+*.pdb
+*.exe
+*.dll
+*.dll.config
+*.vshost.exe
+*.vshost.exe.config
+
+# Build results
+[Dd]ebug/
+[Rr]elease/
+x64/
+x86/
+
+# NuGet packages
+project.lock.json
+project.fragment.lock.json
+artifacts/
+
+# IDE
+.idea/
+*.swp
+*.swo
+
+# OS
+.DS_Store
+Thumbs.db
+
+# Test results
+TestResults/
+*.trx
+
+# Coverage
+*.coverage
+*.coveragexml
+
+# Logs
+logs/
+*.log
+
+# Temporary files
+*.tmp
+*.temp

CLI/CLI.vbproj

@@ -0,0 +1,13 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>CLI</RootNamespace>
+    <TargetFramework>net8.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\JsonParser\JsonParser.vbproj" />
+  </ItemGroup>
+
+</Project>

CLI/Program.vb

@@ -0,0 +1,23 @@
+Imports JsonParser
+Imports System.IO
+
+Module Program
+    Sub Main(args As String())
+        Try
+            ' Read all input from standard input
+            Dim input As String
+            Using reader As New StreamReader(Console.OpenStandardInput())
+                input = reader.ReadToEnd()
+            End Using
+
+            ' Parse input using JsonParser JSON parser
+            Dim parsed = JSON.Parse(input)
+
+            ' Output pretty-printed result
+            Console.WriteLine(parsed.ToString())
+        Catch ex As Exception
+            Console.Error.WriteLine("Error parsing JSON: " & ex.Message)
+            Environment.Exit(1)
+        End Try
+    End Sub
+End Module

JsonParser.Tests/JsonParser.Tests.vbproj

@@ -0,0 +1,21 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <RootNamespace></RootNamespace>
+    <TargetFramework>net8.0</TargetFramework>
+    <IsPackable>false</IsPackable>
+    <IsTestProject>true</IsTestProject>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="xunit" Version="2.6.6" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.5.6" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.6.0" />
+    <PackageReference Include="coverlet.collector" Version="6.0.0" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\JsonParser\JsonParser.vbproj" />
+  </ItemGroup>
+
+</Project>

JsonParser.Tests/Parsers/ArrayParserTests.vb

@@ -0,0 +1,67 @@
+Imports JsonParser.Models
+Imports JsonParser.Parsers
+Imports Xunit
+
+Namespace JsonParser.Tests.Parsers
+
+    Public Class ArrayParserTests
+
+        <Fact>
+        Public Sub Parse_EmptyArray_ReturnsArrayTokenWithNoElements()
+            Dim token = ArrayParser.Parse("[]")
+            Assert.NotNull(token)
+            Assert.Equal(0, token.Elements.Count())
+            Assert.Equal(2, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_ArrayOfNumbers_ReturnsArrayTokenWithCorrectElements()
+            Dim token = ArrayParser.Parse("[1,2,3]")
+            Assert.NotNull(token)
+            Assert.Equal(3, token.Elements.Count())
+            For Each e In token.Elements
+                Assert.IsType(Of NumberToken)(e)
+            Next
+            Assert.Equal(7, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_ArrayOfStrings_ReturnsArrayTokenWithCorrectElements()
+            Dim token = ArrayParser.Parse("[""a"",""b""]")
+            Assert.NotNull(token)
+            Assert.Equal(2, token.Elements.Count())
+            For Each e In token.Elements
+                Assert.IsType(Of StringToken)(e)
+            Next
+            Assert.Equal(9, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_MixedArray_ReturnsArrayTokenWithMixedTypes()
+            Dim token = ArrayParser.Parse("[1,""a"",true]")
+            Assert.NotNull(token)
+            Assert.Equal(3, token.Elements.Count())
+            Assert.IsType(Of NumberToken)(token.Elements.ElementAt(0))
+            Assert.IsType(Of StringToken)(token.Elements.ElementAt(1))
+            Assert.IsType(Of TrueToken)(token.Elements.ElementAt(2))
+            Assert.Equal(12, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_NestedArray_ReturnsArrayTokenWithArrayElement()
+            Dim token = ArrayParser.Parse("[[1],2]")
+            Assert.NotNull(token)
+            Assert.Equal(2, token.Elements.Count())
+            Assert.IsType(Of ArrayToken)(token.Elements.ElementAt(0))
+            Assert.IsType(Of NumberToken)(token.Elements.ElementAt(1))
+            Assert.Equal(7, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_InvalidArray_ThrowsException()
+            Assert.Throws(Of System.Exception)(Sub() ArrayParser.Parse("[1,]"))
+        End Sub
+
+    End Class
+
+End Namespace

JsonParser.Tests/Parsers/NumberParserTests.vb

@@ -0,0 +1,131 @@
+Imports System.Text.RegularExpressions
+Imports JsonParser.Models
+Imports JsonParser.Parsers
+Imports Xunit
+
+Namespace JsonParser.Tests.Parsers
+
+    Public Class NumberParserTests
+
+        <Fact>
+        Public Sub Parse_Integer_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("123")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(123D, token.Value)
+            Assert.Equal(3, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_NegativeInteger_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("-456")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(-456D, token.Value)
+            Assert.Equal(4, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_Decimal_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("3.14")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(3.14D, token.Value)
+            Assert.Equal(4, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_Zero_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("0")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(0D, token.Value)
+            Assert.Equal(1, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_LargeNumber_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("1234567890")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(1234567890D, token.Value)
+            Assert.Equal(10, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_InvalidNumber_ThrowsException()
+            Assert.Throws(Of System.Exception)(Sub() JsonParser.Parsers.NumberParser.Parse("abc"))
+        End Sub
+
+        <Fact>
+        Public Sub Parse_NumberWithExponent_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("1e3")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(1000D, token.Value)
+            Assert.Equal(3, token.Skip)
+
+            token = JsonParser.Parsers.NumberParser.Parse("-2.5E-2")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(-0.025D, token.Value)
+            Assert.Equal(7, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_NumberWithTrailingSpace_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("42 ")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(42D, token.Value)
+            Assert.Equal(3, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_NumberWithTrailingTab_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("123" & vbTab)
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(123D, token.Value)
+            Assert.Equal(4, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_DecimalWithTrailingNewline_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("3.14" & vbLf)
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(3.14D, token.Value)
+            Assert.Equal(5, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_ExponentWithTrailingCarriageReturn_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("8.9e2" & vbCr)
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(890D, token.Value)
+            Assert.Equal(6, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_ExponentWithTrailingSpaces_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("-0.5E-1  ")
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(-0.05D, token.Value)
+            Assert.Equal(9, token.Skip)
+        End Sub
+
+        <Fact>
+        Public Sub Parse_NumberWithDelimiter_ReturnsNumberToken()
+            Dim token = JsonParser.Parsers.NumberParser.Parse("77,", New Regex(","))
+            Assert.NotNull(token)
+            Assert.IsType(Of NumberToken)(token)
+            Assert.Equal(77D, token.Value)
+            Assert.Equal(2, token.Skip)
+        End Sub
+
+    End Class
+
+End Namespace