package args_test

import (
	"sync"
	"testing"

	"github.com/ipfs/go-cid"
	"github.com/ipld/go-ipld-prime"
	"github.com/ipld/go-ipld-prime/codec/dagcbor"
	"github.com/ipld/go-ipld-prime/datamodel"
	"github.com/ipld/go-ipld-prime/node/bindnode"
	"github.com/ipld/go-ipld-prime/schema"
	"github.com/stretchr/testify/assert"
	"github.com/stretchr/testify/require"
	"github.com/ucan-wg/go-ucan/pkg/args"
	"github.com/ucan-wg/go-ucan/pkg/policy/literal"
)

const (
	argsSchema = "type Args { String : Any }"
	argsName   = "Args"
)

var (
	once sync.Once
	ts   *schema.TypeSystem
	err  error
)

func argsType() schema.Type {
	once.Do(func() {
		ts, err = ipld.LoadSchemaBytes([]byte(argsSchema))
	})
	if err != nil {
		panic(err)
	}

	return ts.TypeByName(argsName)
}

func argsPrototype() schema.TypedPrototype {
	return bindnode.Prototype((*args.Args)(nil), argsType())
}

func TestArgs(t *testing.T) {
	t.Parallel()

	const (
		intKey    = "intKey"
		mapKey    = "mapKey"
		nilKey    = "nilKey"
		boolKey   = "boolKey"
		linkKey   = "linkKey"
		listKey   = "listKey"
		nodeKey   = "nodeKey"
		uintKey   = "uintKey"
		bytesKey  = "bytesKey"
		floatKey  = "floatKey"
		stringKey = "stringKey"
	)

	const (
		expIntVal    = int64(-42)
		expBoolVal   = true
		expUintVal   = uint(42)
		expStringVal = "stringVal"
	)

	var (
		expMapVal = map[string]string{"keyOne": "valOne", "keyTwo": "valTwo"}
		// expNilVal = (map[string]string)(nil)
		expLinkVal  = cid.MustParse("bafzbeigai3eoy2ccc7ybwjfz5r3rdxqrinwi4rwytly24tdbh6yk7zslrm")
		expListVal  = []string{"elem1", "elem2", "elem3"}
		expNodeVal  = literal.String("nodeVal")
		expBytesVal = []byte{0xde, 0xad, 0xbe, 0xef}
		expFloatVal = 42.0
	)

	argsIn := args.New()

	// WARNING: Do not change the order of these statements as this is the
	//          order which will be present when decoded from DAG-CBOR (
	//          per RFC7049 default canonical ordering?).
	for _, a := range []struct {
		key string
		val any
	}{
		{key: intKey, val: expIntVal},
		{key: mapKey, val: expMapVal},
		// {key:  nilKey, val: expNilVal},
		{key: boolKey, val: expBoolVal},
		{key: linkKey, val: expLinkVal},
		{key: listKey, val: expListVal},
		{key: nodeKey, val: expNodeVal},
		{key: uintKey, val: expUintVal},
		{key: bytesKey, val: expBytesVal},
		{key: floatKey, val: expFloatVal},
		{key: stringKey, val: expStringVal},
	} {
		require.NoError(t, argsIn.Add(a.key, a.val))
	}

	// Round-trip to DAG-CBOR here as ToIPLD/FromIPLD is only a wrapper
	argsOut := roundTripThroughDAGCBOR(t, argsIn)
	assert.Equal(t, argsIn, argsOut)

	actMapVal := map[string]string{}
	mit := argsOut.Values[mapKey].MapIterator()

	es := errorSwallower(t)

	for !mit.Done() {
		k, v, err := mit.Next()
		require.NoError(t, err)
		ks := es(k.AsString()).(string)
		vs := es(v.AsString()).(string)

		actMapVal[ks] = vs
	}

	actListVal := []string{}
	lit := argsOut.Values[listKey].ListIterator()

	for !lit.Done() {
		_, v, err := lit.Next()
		require.NoError(t, err)
		vs := es(v.AsString()).(string)

		actListVal = append(actListVal, vs)
	}

	assert.Equal(t, expIntVal, es(argsOut.Values[intKey].AsInt()))
	assert.Equal(t, expMapVal, actMapVal) // TODO: special accessor
	// TODO: the nil map comes back empty (but the right type)
	// assert.Equal(t, expNilVal, actNilVal)
	assert.Equal(t, expBoolVal, es(argsOut.Values[boolKey].AsBool()))
	assert.Equal(t, expLinkVal.String(), es(argsOut.Values[linkKey].AsLink()).(datamodel.Link).String()) // TODO: special accessor
	assert.Equal(t, expListVal, actListVal)                                                              // TODO: special accessor
	assert.Equal(t, expNodeVal, argsOut.Values[nodeKey])
	assert.Equal(t, expUintVal, uint(es(argsOut.Values[uintKey].AsInt()).(int64)))
	assert.Equal(t, expBytesVal, es(argsOut.Values[bytesKey].AsBytes()))
	assert.Equal(t, expFloatVal, es(argsOut.Values[floatKey].AsFloat()))
	assert.Equal(t, expStringVal, es(argsOut.Values[stringKey].AsString()))
}

func TestArgs_Include(t *testing.T) {
	t.Parallel()

	argsIn := args.New()
	require.NoError(t, argsIn.Add("key1", "val1"))
	require.NoError(t, argsIn.Add("key2", "val2"))

	argsOther := args.New()
	require.NoError(t, argsOther.Add("key2", "valOther")) // This should not overwrite key2 above
	require.NoError(t, argsOther.Add("key3", "val3"))
	require.NoError(t, argsOther.Add("key4", "val4"))

	argsIn.Include(argsOther)

	es := errorSwallower(t)

	assert.Len(t, argsIn.Values, 4)
	assert.Equal(t, "val1", es(argsIn.Values["key1"].AsString()))
	assert.Equal(t, "val2", es(argsIn.Values["key2"].AsString()))
	assert.Equal(t, "val3", es(argsIn.Values["key3"].AsString()))
	assert.Equal(t, "val4", es(argsIn.Values["key4"].AsString()))
}

func errorSwallower(t *testing.T) func(any, error) any {
	return func(val any, err error) any {
		require.NoError(t, err)

		return val
	}
}

func roundTripThroughDAGCBOR(t *testing.T, argsIn *args.Args) *args.Args {
	t.Helper()

	node, err := argsIn.ToIPLD()
	require.NoError(t, err)

	data, err := ipld.Encode(node, dagcbor.Encode)
	require.NoError(t, err)
	node, err = ipld.DecodeUsingPrototype(data, dagcbor.Decode, argsPrototype())
	require.NoError(t, err)

	argsOut, err := args.FromIPLD(node)
	require.NoError(t, err)

	return argsOut
}