Add tests for option_codes()

t/905-option_codes.t

@@ -0,0 +1,36 @@
+use warnings;
+use strict;
+
+use JSON;
+use Tesla::API;
+use Test::More;
+
+my $tesla = Tesla::API->new(unauthenticated => 1);
+
+my $known_options;
+{
+    local $/;
+    open my $fh, '<', 't/test_data/option_codes.json' or die $!;
+    my $json = <$fh>;
+    $known_options = decode_json($json);
+}
+
+my $api_options = $tesla->option_codes;
+
+is
+    keys %$api_options,
+    keys %$known_options,
+    "option_codes() returns the proper number of option codes ok";
+
+for my $option (keys %$known_options) {
+
+    is
+        $api_options->{$option},
+        $known_options->{$option},
+        "Value for option $option is correct";
+}
+
+my $missing_ok = eval { $tesla->coption_codes('NON_EXIST'); 1; };
+is $missing_ok, undef, "If an option code doesn't exist, we croak";
+
+done_testing();