Implement base libsecp256k1 context creation and destruction

Secp256k1.xs

@@ -9,6 +9,30 @@ MODULE = Bitcoin::Secp256k1				PACKAGE = Bitcoin::Secp256k1
 
 PROTOTYPES: DISABLED
 
+SV*
+new(classname)
+		SV *classname
+	CODE:
+		secp256k1_context *secp_ctx = secp256k1_context_create(SECP256K1_CONTEXT_NONE);
+		/* TODO: fill_random is not a part of secp256k1, need to call Perl CSPRNG */
+		/* unsigned char randomize[32];
+		if (!fill_random(randomize, sizeof(randomize)) || !secp256k1_context_randomize(secp_ctx, randomize)) {
+			croak("Failed to randomize secp256k1 context");
+		} */
+
+		SV *secp_sv = newSViv(0);
+		RETVAL = sv_setref_iv(secp_sv, SvPVbyte_nolen(classname), (unsigned long) secp_ctx);
+		SvREADONLY_on(secp_sv);
+	OUTPUT:
+		RETVAL
+
+void
+DESTROY(self)
+		SV *self
+	CODE:
+		secp256k1_context *secp_ctx = (secp256k1_context*) SvIV(SvRV(self));
+		secp256k1_context_destroy(secp_ctx);
+
 BOOT:
 	secp256k1_selftest();
 

t/base.t

@@ -5,7 +5,8 @@ use Bitcoin::Secp256k1;
 # This tests whether blah blah blah
 ################################################################################
 
-pass; # TODO
+my $secp = Bitcoin::Secp256k1->new();
+isa_ok $secp, 'Bitcoin::Secp256k1';
 
 done_testing;