Fix unable to use include keyword at root level (#69)

Author: Arkatufus

src/HOCON.Tests/HoconTests.cs

@@ -478,6 +478,32 @@ Task<string> IncludeCallback(HoconCallbackType t, string s)
             Assert.Equal("hello", config.GetString("a.b.y"));
         }
 
+        [Theory]
+        [InlineData(@"{
+    include ""foo""
+    a : include ""foo""
+}")]
+        [InlineData(@"
+    include ""foo""
+    a : include ""foo""
+")]
+        public void CanParseIncludeInRoot(string hocon)
+        {
+            var includeHocon = @"
+x = 123
+y = hello
+";
+            Task<string> IncludeCallback(HoconCallbackType t, string s)
+                => Task.FromResult(includeHocon);
+
+            var config = Parser.Parse(hocon, IncludeCallback);
+
+            Assert.Equal(123, config.GetInt("x"));
+            Assert.Equal("hello", config.GetString("y"));
+            Assert.Equal(123, config.GetInt("a.x"));
+            Assert.Equal("hello", config.GetString("a.y"));
+        }
+
         [Fact]
         public void CanParseArrayInclude()
         {

src/HOCON/Parser.cs

@@ -242,35 +242,17 @@ private void ParseTokens()
                 switch (_tokens.Current.Type)
                 {
                     case TokenType.Include:
-                        var parsedInclude = ParseInclude(null);
-                        if (_root.Type != HoconType.Object)
-                        {
-                            _root.Clear();
-                            _root.Add(parsedInclude.GetObject());
-                        }
-                        else
-                            _root.Add(parsedInclude.GetObject());
+                        _root.Add(ParseInclude(_root));
                         break;
 
                     // Hocon config file may contain one array and one array only
                     case TokenType.StartOfArray:
-                        _root.Clear();
-                        _root.Add(ParseArray(null));
-                        ConsumeWhitelines();
-                        if (_tokens.Current.Type != TokenType.EndOfFile)
-                            throw HoconParserException.Create(_tokens.Current, Path, "Hocon config can only contain one array or one object.");
-                        return;
+                        _root.Add(ParseArray(_root));
+                        break;
 
                     case TokenType.StartOfObject:
                     {
-                        var parsedObject = ParseObject(null);
-                        if (_root.Type != HoconType.Object)
-                        {
-                            _root.Clear();
-                            _root.Add(parsedObject);
-                        }
-                        else
-                            _root.Add(parsedObject.GetObject());
+                        _root.Add(ParseObject(_root).GetObject());
                         break;
                     }
 
@@ -281,20 +263,12 @@ private void ParseTokens()
                         if (_tokens.Current.Type != TokenType.LiteralValue)
                             break;
 
-                        var parsedObject = ParseObject(null);
-                        if (_root.Type != HoconType.Object)
-                        {
-                            _root.Clear();
-                            _root.Add(parsedObject);
-                        }
-                        else
-                            _root.Add(parsedObject.GetObject());
+                        _root.Add(ParseObject(_root).GetObject());
                         break;
                     }
 
                     case TokenType.Comment:
                     case TokenType.EndOfLine:
-                    case TokenType.EndOfFile:
                     case TokenType.EndOfObject:
                     case TokenType.EndOfArray:
                         _tokens.Next();