Add basic lending functionality

- open position
- draw
- paydown
- close position
- liquidate

Author: dekentz

3-lending/rai-test/.env

@@ -0,0 +1,8 @@
+tokenXRD=030000000000000000000000000000000000000000000000000004
+act=020d3869346218a5e8deaaf2001216dc00fcacb79fb43e30ded79a
+package=017945711fa1add7153a5a6ee89bc2a2c94d2356625cc89f9accd6
+component=0210c7b3f26a39ac29633019e165f6c860cc7ab38b9e640b888258
+adminbadge=0365685a0b8525896fe59aef7b64e953a9e4b21914a084157cca4f
+minterbadge=035e468abe2459dae2c8259885044ac7738ddbdb5475c5e3fb019a
+position=03d110fca96c508a798a4eeaadf340d96e8e632294abeba42058d7
+rai=033ebd704e8378dc8c9b832cd465bc294b1b8fbe56e1d70359728d

3-lending/rai-test/Cargo.toml

@@ -0,0 +1,21 @@
+[package]
+name = "rai-test"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]
+sbor = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+scrypto = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[dev-dependencies]
+radix-engine = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[profile.release]
+opt-level = 's'     # Optimize for size.
+lto = true          # Enable Link Time Optimization.
+codegen-units = 1   # Reduce number of codegen units to increase optimizations.
+panic = 'abort'     # Abort on panic.
+strip = "debuginfo" # Strip debug info.
+
+[lib]
+crate-type = ["cdylib", "lib"]

3-lending/rai-test/raitest.rev

@@ -0,0 +1,32 @@
+reset
+new-account -> act
+
+publish . -> package
+call-function $package RaiTest new -> component adminbadge minterbadge position rai
+call-method $component open_position 500,030000000000000000000000000000000000000000000000000004 
+call-method $component draw 1,$position 5
+call-method $component close_position_with_payment 1,$position 5,$rai
+
+reset
+new-account -> act
+
+publish . -> package
+call-function $package RaiTest new -> component adminbadge minterbadge position rai
+call-method $component open_position 500,030000000000000000000000000000000000000000000000000004 
+call-method $component draw 1,$position 5
+set-current-epoch 15000
+call-method $component paydown 1,$position 5,$rai
+call-method $component add_collateral 1,$position 20,030000000000000000000000000000000000000000000000000004
+call-method $component partial_withdraw_collateral 1,$position 400
+
+reset
+new-account -> act
+
+publish . -> package
+call-function $package RaiTest new -> component adminbadge minterbadge position rai
+call-method $component open_position 500,030000000000000000000000000000000000000000000000000004 
+call-method $component draw #0000000000000000,$position 33
+set-current-epoch 15000
+call-method $component open_position 1000,030000000000000000000000000000000000000000000000000004 
+call-method $component draw #0000000000000001,$position 50
+call-method $component liquidate 0 50,$rai