From 169fa055725ec5bd92d18742cf0038b18444ffc1 Mon Sep 17 00:00:00 2001
From: alessandrokonrad <akonrad6@gmail.com>
Date: Mon, 19 Sep 2022 22:32:56 +0200
Subject: [PATCH] added ex units from haskell plc

---
 crates/uplc/src/tx/eval.rs  | 6 ++++++
 crates/uplc/src/tx/tests.rs | 9 +++++++++
 2 files changed, 15 insertions(+)

diff --git a/crates/uplc/src/tx/eval.rs b/crates/uplc/src/tx/eval.rs
index 4dad060f..ceaa25af 100644
--- a/crates/uplc/src/tx/eval.rs
+++ b/crates/uplc/src/tx/eval.rs
@@ -831,6 +831,12 @@ pub fn eval_redeemer(
                     None => ExBudget::default(),
                 };
 
+                println!(
+                    "({},{})",
+                    initial_budget.mem - budget.mem,
+                    initial_budget.cpu - budget.cpu
+                );
+
                 let new_redeemer = Redeemer {
                     tag: redeemer.tag.clone(),
                     index: redeemer.index,
diff --git a/crates/uplc/src/tx/tests.rs b/crates/uplc/src/tx/tests.rs
index 1f152388..a7a39266 100644
--- a/crates/uplc/src/tx/tests.rs
+++ b/crates/uplc/src/tx/tests.rs
@@ -258,6 +258,9 @@ fn test_eval() {
 fn test_eval_1() {
     /*
 
+    Haskell PLC: (738928, 215316271)
+    Aiken PLC: (721484, 210171376)
+
     PlutusV2
 
     {-# INLINEABLE mintTestValidator #-}
@@ -505,6 +508,9 @@ fn test_eval_1() {
 fn test_eval_2() {
     /*
 
+    Haskell PLC: (655782, 188449458)
+    Aiken PLC: (638338, 183304563)
+
     Plutus V1
 
     {-# INLINEABLE mintTestValidator #-}
@@ -911,6 +917,9 @@ fn test_eval_4() {
 fn test_eval_5() {
     /*
 
+    Haskell PLC: (114126, 40098159)
+    Aiken PLC: (114126,40211433)
+
     Plutus V1
 
     Helios script: