diff --git a/regress/projects/black_box/regress/test_forward_exact_arp_all/run.pl b/regress/projects/black_box/regress/test_forward_exact_arp_all/run.pl
new file mode 100755
index 0000000..0f44f91
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_exact_arp_all/run.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# test_forward_exact_arp_all
+
+use strict;
+use OF::Includes;
+
+sub forward_all {
+
+	forward_simple_arp(@_, 'all', 0);  # 0: fool_flg = off
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_ports( $ofp, $sock, $options_ref, \&forward_all, 0x0);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
diff --git a/regress/projects/black_box/regress/test_forward_exact_arp_controller/run.pl b/regress/projects/black_box/regress/test_forward_exact_arp_controller/run.pl
new file mode 100755
index 0000000..e7de7ba
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_exact_arp_controller/run.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# test_forward_exact_arp_controller
+
+use strict;
+use OF::Includes;
+
+sub forward_controller {
+
+	forward_simple_arp(@_, 'controller', 0);  # 0: fool_flg = off
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_ports( $ofp, $sock, $options_ref, \&forward_controller, 0x0);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
diff --git a/regress/projects/black_box/regress/test_forward_exact_arp_fool/run.pl b/regress/projects/black_box/regress/test_forward_exact_arp_fool/run.pl
new file mode 100755
index 0000000..076dfc4
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_exact_arp_fool/run.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# test_forward_exact_arp_fool
+
+use strict;
+use OF::Includes;
+
+sub forward_port {
+
+	forward_simple_arp(@_, 'port', 1);  # 1: fool_flg=on
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_port_pairs( $ofp, $sock, $options_ref, \&forward_port, 0x0);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
diff --git a/regress/projects/black_box/regress/test_forward_exact_arp_port/run.pl b/regress/projects/black_box/regress/test_forward_exact_arp_port/run.pl
new file mode 100755
index 0000000..b0af883
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_exact_arp_port/run.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# test_forward_exact_arp_port
+
+use strict;
+use OF::Includes;
+
+sub forward_port {
+
+	forward_simple_arp(@_, 'port', 0);  # 0: fool_flg = off
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_port_pairs( $ofp, $sock, $options_ref, \&forward_port, 0x0);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
diff --git a/regress/projects/black_box/regress/test_forward_wildcard_arp_all/run.pl b/regress/projects/black_box/regress/test_forward_wildcard_arp_all/run.pl
new file mode 100755
index 0000000..ccebe30
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_wildcard_arp_all/run.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# test_forward_wildcard_arp_all
+
+use strict;
+use OF::Includes;
+
+sub forward_wc_all {
+
+	forward_simple_arp(@_, 'all', 0);  # 0: fool_flg = off
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_wildcards( $ofp, $sock, $options_ref, \&forward_wc_all);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
+
diff --git a/regress/projects/black_box/regress/test_forward_wildcard_arp_controller/run.pl b/regress/projects/black_box/regress/test_forward_wildcard_arp_controller/run.pl
new file mode 100755
index 0000000..90e8b5a
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_wildcard_arp_controller/run.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# test_forward_wildcard_arp_controller
+
+use strict;
+use OF::Includes;
+
+sub forward_wc_controller {
+
+	forward_simple_arp(@_, 'controller', 0);  # 0: fool_flg = off
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_wildcards( $ofp, $sock, $options_ref, \&forward_wc_controller);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
diff --git a/regress/projects/black_box/regress/test_forward_wildcard_arp_fool/run.pl b/regress/projects/black_box/regress/test_forward_wildcard_arp_fool/run.pl
new file mode 100755
index 0000000..0b4d524
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_wildcard_arp_fool/run.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# test_forward_wildcard_arp_port
+
+use strict;
+use OF::Includes;
+
+sub forward_wc_port {
+	forward_simple_arp(@_, 'port', 1);  # 1: fool_flg = on
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_wildcards( $ofp, $sock, $options_ref, \&forward_wc_port);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
+
+
diff --git a/regress/projects/black_box/regress/test_forward_wildcard_arp_port/run.pl b/regress/projects/black_box/regress/test_forward_wildcard_arp_port/run.pl
new file mode 100755
index 0000000..ef8cb8a
--- /dev/null
+++ b/regress/projects/black_box/regress/test_forward_wildcard_arp_port/run.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# test_forward_wildcard_arp_port
+
+use strict;
+use OF::Includes;
+
+sub forward_wc_port {
+        forward_simple_arp(@_, 'port', 0);  # 0: fool_flg = off
+}
+
+sub my_test {
+
+	my ( $sock, $options_ref ) = @_;
+
+	for_all_wildcards( $ofp, $sock, $options_ref, \&forward_wc_port);
+}
+
+run_black_box_test( \&my_test, \@ARGV );
+
+
diff --git a/regress/projects/black_box/regress/tests.txt b/regress/projects/black_box/regress/tests.txt
index 8c53a4c..01c7d14 100644
--- a/regress/projects/black_box/regress/tests.txt
+++ b/regress/projects/black_box/regress/tests.txt
@@ -51,6 +51,16 @@ test_forward_wildcard_icmp_all/run.pl
 test_forward_wildcard_icmp_controller/run.pl
 test_forward_wildcard_icmp_fool/run.pl
 
+## ARP handling Tests
+test_forward_exact_arp_port/run.pl
+test_forward_exact_arp_all/run.pl
+test_forward_exact_arp_controller/run.pl
+test_forward_exact_arp_fool/run.pl
+test_forward_wildcard_arp_port/run.pl
+test_forward_wildcard_arp_all/run.pl
+test_forward_wildcard_arp_controller/run.pl
+test_forward_wildcard_arp_fool/run.pl
+
 ## Unusual Data
 test_ip_options/run.pl
 ##test_ip_protocol/run.pl