lease_market_sale_test.go

package test_main

import (
	"testing"

	. "github.com/bjartek/overflow"
	"github.com/hexops/autogold"
	"github.com/stretchr/testify/assert"
)

func TestLeaseMarketSale(t *testing.T) {
	// We need to rework these tests, need to call setup_find_lease_market_2_dapper.cdc
	// we cannot sign using the address that should receive royalty

	otu := NewOverflowTest(t).
		setupFIND().
		registerDUCInRegistry().
		createDapperUser("user1").
		registerDapperUser("user1").
		createDapperUser("user2").
		registerDapperUser("user2").
		createDapperUser("user3").
		registerDapperUser("user3").
		setFlowLeaseMarketOptionDapper().
		setProfile("user1").
		setProfile("user2")

	price := 10.0

	otu.setUUID(500)

	royaltyIdentifier := otu.identifier("FindLeaseMarket", "RoyaltyPaid")

	otu.registerDapperUserWithName("user1", "name1")
	otu.registerDapperUserWithName("user1", "name2")
	otu.registerDapperUserWithName("user1", "name3")

	ftIden, err := otu.O.QualifiedIdentifier("DapperUtilityCoin", "Vault")
	assert.NoError(otu.T, err)

	t.Run("Should be able to list a lease for sale and buy it", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 1, len(itemsForSale))
		assert.Equal(t, "active_listed", itemsForSale[0].SaleType)

		otu.buyLeaseForMarketSaleDUC("user2", "user1", "name1", price).
			moveNameTo("user2", "user1", "name1")
	})

	t.Run("Should not be able to list with price $0", func(t *testing.T) {
		otu.O.Tx("listLeaseForSale",
			WithSigner("user1"),
			WithArg("leaseName", "name1"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", 0.0),
			WithArg("validUntil", otu.currentTime()+100.0),
		).
			AssertFailure(t, "Listing price should be greater than 0")
	})

	t.Run("Should not be able to list with invalid time", func(t *testing.T) {
		otu.O.Tx("listLeaseForSale",
			WithSigner("user1"),
			WithArg("leaseName", "name1"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", price),
			WithArg("validUntil", 0.0),
		).
			AssertFailure(t, "Valid until is before current time")
	})

	t.Run("Should be able to cancel listing if the pointer is no longer valid", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price).
			moveNameTo("user1", "user2", "name1")

		otu.O.Tx("delistLeaseSale",
			WithSigner("user1"),
			WithArg("leases", `["name1"]`),
		).
			AssertSuccess(t)

		otu.moveNameTo("user2", "user1", "name1")
	})

	t.Run("Should be able to change price of lease", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		newPrice := 15.0
		otu.listLeaseForSaleDUC("user1", "name1", newPrice)
		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 1, len(itemsForSale))
		assert.Equal(t, newPrice, itemsForSale[0].Amount)

		otu.cancelAllLeaseForSale("user1")
	})

	t.Run("Should not be able to buy your own listing", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user1"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertFailure(t, "You cannot buy your own listing")
	})

	t.Run("Should not be able to buy expired listing", func(t *testing.T) {
		otu.tickClock(200.0)

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertFailure(t, "This sale item listing is already expired")

		otu.cancelAllLeaseForSale("user1")
	})

	t.Run("Should be able to cancel sale", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		otu.cancelLeaseForSale("user1", "name1")
		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 0, len(itemsForSale))
	})

	t.Run("Should not be able to buy if too low price", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", 5.0),
		).
			AssertFailure(t, "Incorrect balance sent in vault. Expected 10.00000000 got 5.00000000")

		otu.cancelAllLeaseForSale("user1")
	})

	t.Run("Should be able cancel all listing", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)
		otu.listLeaseForSaleDUC("user1", "name2", price)
		otu.listLeaseForSaleDUC("user1", "name3", price)

		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 3, len(itemsForSale))
		assert.Equal(t, "active_listed", itemsForSale[0].SaleType)

		otu.O.Tx("delistAllLeaseSale",
			WithSigner("user1"),
		).
			AssertSuccess(t).
			AssertEventCount(t, 3)
	})

	t.Run("Should be able to list it, deprecate it and cannot list another again, but able to buy and delist.", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 1, len(itemsForSale))
		assert.Equal(t, "active_listed", itemsForSale[0].SaleType)
		assert.Equal(t, price, itemsForSale[0].Amount)

		otu.alterLeaseMarketOption("deprecate")

		otu.O.Tx("listLeaseForSale",
			WithSigner("user1"),
			WithArg("leaseName", "name2"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", price),
			WithArg("validUntil", otu.currentTime()+100.0),
		).
			AssertFailure(t, "Tenant has deprected mutation options on this item")

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertSuccess(t)

		otu.alterLeaseMarketOption("enable")

		otu.listLeaseForSaleDUC("user1", "name2", price)

		otu.alterLeaseMarketOption("deprecate")

		otu.O.Tx("delistLeaseSale",
			WithSigner("user1"),
			WithArg("leases", `["name2"]`),
		).
			AssertSuccess(t)

		otu.alterLeaseMarketOption("enable")

		otu.cancelAllLeaseForSale("user1").
			moveNameTo("user2", "user1", "name1")
	})

	t.Run("Should be able to list it, stop it and cannot list another again, nor buy but able to delist.", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 1, len(itemsForSale))
		assert.Equal(t, "active_listed", itemsForSale[0].SaleType)
		assert.Equal(t, price, itemsForSale[0].Amount)

		otu.alterLeaseMarketOption("stop")

		otu.O.Tx("listLeaseForSale",
			WithSigner("user1"),
			WithArg("leaseName", "name2"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", price),
			WithArg("validUntil", otu.currentTime()+100.0),
		).
			AssertFailure(t, "Tenant has stopped this item")

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertFailure(t, "Tenant has stopped this item")

		otu.O.Tx("delistLeaseSale",
			WithSigner("user1"),
			WithArg("leases", `["name1"]`),
		).
			AssertFailure(t, "Tenant has stopped this item")

		otu.alterLeaseMarketOption("enable")
		otu.cancelAllLeaseForSale("user1")
	})

	t.Run("Should be able to purchase, list and delist items after enabled market option", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 1, len(itemsForSale))
		assert.Equal(t, "active_listed", itemsForSale[0].SaleType)
		assert.Equal(t, price, itemsForSale[0].Amount)

		otu.O.Tx("listLeaseForSale",
			WithSigner("user1"),
			WithArg("leaseName", "name2"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", price),
			WithArg("validUntil", otu.currentTime()+100.0),
		).
			AssertSuccess(t)

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertSuccess(t)

		otu.O.Tx("listLeaseForSale",
			WithSigner("user2"),
			WithArg("leaseName", "name1"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", price),
			WithArg("validUntil", otu.currentTime()+100.0),
		).
			AssertSuccess(t)

		otu.cancelLeaseForSale("user2", "name1").
			moveNameTo("user2", "user1", "name1")
		itemsForSale = otu.getItemsForSale("user2")
		assert.Equal(t, 0, len(itemsForSale))
		otu.cancelAllLeaseForSale("user1")
	})

	// Testing on Royalties

	// network 0.05
	// find 0.025
	// tenant nil
	t.Run("Royalties should be sent to correspondence upon buy action", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertSuccess(t).
			AssertEvent(t, royaltyIdentifier, map[string]interface{}{
				"address":     otu.O.Address("find"),
				"amount":      0.25,
				"leaseName":   "name1",
				"royaltyName": "find",
				"tenant":      "find",
			}).
			AssertEvent(t, royaltyIdentifier, map[string]interface{}{
				"address":     otu.O.Address("dapper"),
				"amount":      0.44,
				"leaseName":   "name1",
				"royaltyName": "dapper",
				"tenant":      "find",
			})

		otu.cancelAllLeaseForSale("user1").
			moveNameTo("user2", "user1", "name1")
	})

	t.Run("Royalties should be sent to correspondence upon buy action, if royalty is higher than 0.44", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", 100.0)

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", 100.0),
		).
			AssertSuccess(t).
			AssertEvent(t, royaltyIdentifier, map[string]interface{}{
				"address":     otu.O.Address("find"),
				"amount":      2.5,
				"leaseName":   "name1",
				"royaltyName": "find",
				"tenant":      "find",
			}).
			AssertEvent(t, royaltyIdentifier, map[string]interface{}{
				"address":     otu.O.Address("dapper"),
				"amount":      1.0,
				"leaseName":   "name1",
				"royaltyName": "dapper",
				"tenant":      "find",
			})

		otu.cancelAllLeaseForSale("user1").
			moveNameTo("user2", "user1", "name1")
	})

	/* Honour Banning */
	t.Run("Should be able to ban user, user is only allowed to cancel listing.", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)
		otu.leaseProfileBan("user1")

		otu.O.Tx("listLeaseForSale",
			WithSigner("user1"),
			WithArg("leaseName", "name2"),
			WithArg("ftAliasOrIdentifier", ftIden),
			WithArg("directSellPrice", price),
			WithArg("validUntil", otu.currentTime()+100.0),
		).
			AssertFailure(t, "Seller banned by Tenant")

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertFailure(t, "Seller banned by Tenant")

		otu.cancelLeaseForSale("user1", "name1").
			removeLeaseProfileBan("user1")
	})

	t.Run("Should be able to ban user, user cannot buy NFT.", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)
		otu.leaseProfileBan("user2")

		otu.O.Tx("buyLeaseForSaleDapper",
			WithSigner("user2"),
			WithPayloadSigner("dapper"),
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).
			AssertFailure(t, "Buyer banned by Tenant")

		otu.removeLeaseProfileBan("user2").
			cancelLeaseForSale("user1", "name1").
			removeLeaseProfileBan("user2")
	})

	t.Run("Should be able to list an NFT for sale and buy it with DUC", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		itemsForSale := otu.getLeasesForSale("user1")
		assert.Equal(t, 1, len(itemsForSale))
		assert.Equal(t, "active_listed", itemsForSale[0].SaleType)

		otu.buyLeaseForMarketSaleDUC("user2", "user1", "name1", price).
			moveNameTo("user2", "user1", "name1")
	})

	t.Run("Should be able to get required output for buy lease for sale", func(t *testing.T) {
		otu.listLeaseForSaleDUC("user1", "name1", price)

		otu.O.Script("getMetadataForBuyLeaseForSaleDapper",
			WithArg("sellerAccount", "user1"),
			WithArg("leaseName", "name1"),
			WithArg("amount", price),
		).AssertWant(t, autogold.Want("getMetadataForBuyLeaseForSaleDapper", map[string]interface{}{
			"amount": 10, "description": "Name :name1 for DUC 10.00000000",
			"id":       503,
			"imageURL": "https://i.imgur.com/8W8NoO1.png",
			"name":     "name1",
		}))

		otu.cancelAllLeaseForSale("user1")
	})
}