using Xunit;
using Lisp_Environment = Jellyfin.Plugin.SmartPlaylist.Lisp.Environment;
using Lisp_Boolean = Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler.Boolean;
using Jellyfin.Plugin.SmartPlaylist.Lisp;
using Jellyfin.Plugin.SmartPlaylist.Lisp.Compiler;

namespace Tests
{
    public class Test {
        [Fact]
        public static void StringTokenStreamTest() {
            StringTokenStream sts = StringTokenStream.generate("(\"some literal string\" def ghj +100 -+300 1)");
            Assert.Equal(sts.get().value, "(");
            Assert.Equal(sts.get().value, "\"");
            Assert.Equal(sts.get().value, "some");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "literal");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "string");
            Assert.Equal(sts.get().value, "\"");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "def");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "ghj");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "+");
            Assert.Equal(sts.get().value, "100");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "-");
            Assert.Equal(sts.get().value, "+");
            Assert.Equal(sts.get().value, "300");
            Assert.Equal(sts.get().value, " ");
            Assert.Equal(sts.get().value, "1");
            Assert.Equal(sts.get().value, ")");
            sts.commit();
            Assert.Equal(sts.available(), 0);
        }

        [Fact]
        public static void ParserTest() {
            string program = "( + 1 ( * 2 3))";
            StringTokenStream sts = StringTokenStream.generate(program);
            Parser p = new Parser(sts);
            Assert.Equal(program, string.Format("{0}", p.parse()));
        }

        [Fact]
        public static void EvaluateTest() {
            Expression p = new Parser(StringTokenStream.generate("(+ 5 (+ 1 2 3))")).parse();
            var e = Lisp_Environment.create();
            Entry r = (Entry) e.eval(p);
            Assert.Equal(((Integer) r.expression).value, 11);

            r = (Entry) Lisp_Environment.create().eval("(> 1 2)");
            Assert.Equal(((Lisp_Boolean) r.expression).value, false);

            r = (Entry) Lisp_Environment.create().eval("(if (> 1 2) 3 4)");
            Assert.Equal(((Integer) r.expression).value, 4);

            r = (Entry) Lisp_Environment.create().eval("(begin (define x 1) 4)");
            Assert.Equal(((Integer) r.expression).value, 4);


            r = (Entry) Lisp_Environment.create().eval("(apply + (1 2))");
            Assert.Equal(((Integer) r.expression).value, 3);
        }
    }
}