package gigaparsec_test

import (
	"bytes"
	"testing"

	"git.codemonkeysoftware.net/b/gigaparsec"
	"git.codemonkeysoftware.net/b/gigaparsec/cursor"
	"github.com/shoenig/test"
	"pgregory.net/rapid"
)

func Todo(t *testing.T) {
	t.Errorf("TODO")
}

func notP[T any](pred func(T) bool) func(T) bool {
	return func(x T) bool { return !pred(x) }
}

func hasPrefix(prefix []byte) func([]byte) bool {
	return func(b []byte) bool { return bytes.HasPrefix(b, prefix) }
}

func TestSlice(t *testing.T) {
	t.Run("fails with wrong contents", rapid.MakeCheck(func(t *rapid.T) {
		s := rapid.SliceOfN(rapid.Byte(), 1, -1).Draw(t, "s")
		input := rapid.SliceOfN(rapid.Byte(), len(s), -1).
			Filter(notP(hasPrefix(s))).Draw(t, "input")
		start := gigaparsec.MakeState(cursor.NewSlice(input))

		consumed, result, err := gigaparsec.Slice(s)(start)
		test.ErrorAs(t, err, &gigaparsec.ParseError{})
		test.False(t, consumed, test.Sprint("expected consumed to be false"))
		test.SliceEmpty(t, result.Value)
	}))
	t.Run("fails at end of input", rapid.MakeCheck(func(t *rapid.T) {
		s := rapid.SliceOfN(rapid.Byte(), 1, -1).Draw(t, "s")
		inputLen := rapid.IntRange(0, len(s)-1).Draw(t, "inputLen")
		input := s[:inputLen]
		start := gigaparsec.MakeState(cursor.NewSlice(input))

		consumed, result, err := gigaparsec.Slice(s)(start)
		test.ErrorAs(t, err, &gigaparsec.ParseError{})
		test.False(t, consumed, test.Sprint("expected consumed to be false"))
		test.SliceEmpty(t, result.Value)
	}))
	t.Run("fails when read fails", Todo)
	t.Run("succeeds when contents match", rapid.MakeCheck(func(t *rapid.T) {
		input := rapid.SliceOfN(rapid.Byte(), 1, -1).Draw(t, "input")
		sLen := rapid.IntRange(0, len(input)).Draw(t, "sLen")
		s := input[:sLen]
		start := gigaparsec.MakeState(cursor.NewSlice(input))

		consumed, result, err := gigaparsec.Slice(s)(start)
		test.NoError(t, err)
		test.True(t, consumed, test.Sprint("expected consumed to be true"))
		test.SliceEqOp(t, s, result.Value)
		test.EqOp(t, uint64(len(s)), result.State.Pos())
	}))
}