Crowdtilt · ironcamel · Aug 3, 2015
diff --git a/t/01-customers.t b/t/01-customers.t
@@ -1,16 +1,20 @@
 use Test::Modern;
 use t::lib::Common qw(skip_unless_has_secret stripe);
 
-skip_unless_has_secret;
-
-subtest 'basic stuff' => sub {
+subtest 'create customer' => sub {
     my $cust = stripe->create_customer({ description => 'foo' });
     is $cust->{description}, 'foo',
         '... Created a new customer w/custom description';
 
     $cust = stripe->get_customer($cust->{id});
     is $cust->{description}, 'foo',
-        '... Fetched the created customer';
+        '... Fetched the created customer' or diag explain $cust;
+};
+
+subtest 'update customer' => sub {
+    my $cust = stripe->create_customer({ description => 'foo2' });
+    is $cust->{description}, 'foo2',
+        '... Created a new customer w/custom description';
 
     $cust = stripe->update_customer($cust->{id}, { description => 'bar' });
     is $cust->{description}, 'bar',

diff --git a/t/02-charges.t b/t/02-charges.t
@@ -2,8 +2,6 @@ use Test::Modern;
 use t::lib::Common qw(skip_unless_has_secret stripe :constants);
 use JSON;
 
-skip_unless_has_secret;
-
 my $customer = stripe->create_customer({ description => 'foo' });
 my $card = stripe->create_card(
     {

diff --git a/t/03-banks.t b/t/03-banks.t
@@ -1,8 +1,6 @@
 use Test::Modern;
 use t::lib::Common qw(:constants skip_unless_has_secret stripe);
 
-skip_unless_has_secret;
-
 subtest 'create bank' => sub {
     my $account = stripe->create_account({
         managed => 'true',

diff --git a/t/04-transfers.t b/t/04-transfers.t
@@ -2,8 +2,6 @@ use Test::Modern qw(:deeper :fatal :more);
 use t::lib::Common qw(:constants skip_unless_has_secret stripe);
 use JSON qw(from_json);
 
-skip_unless_has_secret;
-
 my $account = stripe->create_account({
     managed => 'true',
     country => 'CA',

diff --git a/t/06-balance.t b/t/06-balance.t
@@ -1,8 +1,6 @@
 use Test::Modern;
 use t::lib::Common qw(skip_unless_has_secret stripe);
 
-skip_unless_has_secret;
-
 subtest "Balance for the Stripe marketplace" => sub {
     my $bal = stripe->get_balance;
     cmp_deeply $bal, TD->superhashof({ object => 'balance' }),

diff --git a/t/08-file-upload.t b/t/08-file-upload.t
@@ -1,8 +1,6 @@
 use Test::Modern;
 use t::lib::Common qw(skip_unless_has_secret stripe);
 
-skip_unless_has_secret;
-
 my $acct = stripe->create_account({
     managed => 'true',
     country => 'CA',

diff --git a/t/09-refunds.t b/t/09-refunds.t
@@ -2,8 +2,6 @@ use Test::Modern;
 use t::lib::Common qw(skip_unless_has_secret stripe :constants);
 use JSON;
 
-skip_unless_has_secret;
-
 my $customer = stripe->create_customer({ description => 'foo' });
 my $card = stripe->create_card(
     {

diff --git a/t/10-accounts.t b/t/10-accounts.t
@@ -1,8 +1,6 @@
 use Test::Modern;
 use t::lib::Common qw(:constants skip_unless_has_secret stripe);
 
-skip_unless_has_secret;
-
 subtest 'get_platform_account' => sub {
     ok 1;
     my $account = stripe->get_platform_account;

diff --git a/t/LWPCache/01-customers.t/00fa252d18fc58d9dc74e968b391fcbf b/t/LWPCache/01-customers.t/00fa252d18fc58d9dc74e968b391fcbf
@@ -0,0 +1,44 @@
+HTTP/1.1 200 OK
+Connection: close
+Date: Mon, 03 Aug 2015 17:48:29 GMT
+Server: nginx
+Content-Length: 578
+Content-Type: application/json
+Access-Control-Allow-Credentials: true
+Access-Control-Allow-Methods: GET, POST, HEAD, OPTIONS, DELETE
+Access-Control-Allow-Origin: *
+Access-Control-Max-Age: 300
+Client-Response-Num: 1
+Client-SSL-Cert-Issuer: /C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert High Assurance EV CA-1
+Client-SSL-Cert-Subject: /businessCategory=Private Organization/jurisdictionC=US/jurisdictionST=Delaware/serialNumber=4675506/street=3180 18th St., Suite 100/postalCode=94110/C=US/ST=California/L=San Francisco/O=Stripe, Inc/CN=api.stripe.com
+Client-SSL-Cipher: ECDHE-RSA-AES128-SHA256
+Client-SSL-Socket-Class: IO::Socket::SSL
+Request-Id: req_6jFYJSEIEULZjz
+Strict-Transport-Security: max-age=31556926; includeSubDomains
+Stripe-Version: 2014-12-17
+
+{
+  "id": "card_16Vn332deYoXyGRTpndlR8TE",
+  "object": "card",
+  "last4": "4242",
+  "brand": "Visa",
+  "funding": "credit",
+  "exp_month": 12,
+  "exp_year": 2020,
+  "fingerprint": "2GAU1bMxCdtdKOdC",
+  "country": "US",
+  "name": null,
+  "address_line1": null,
+  "address_line2": null,
+  "address_city": null,
+  "address_state": null,
+  "address_zip": null,
+  "address_country": null,
+  "cvc_check": "pass",
+  "address_line1_check": null,
+  "address_zip_check": null,
+  "tokenization_method": null,
+  "dynamic_last4": null,
+  "metadata": {},
+  "customer": "cus_6jFY1plBBKFWyo"
+}
diff --git a/t/LWPCache/01-customers.t/042c9f9bb629fd7a66d8ead65154057b b/t/LWPCache/01-customers.t/042c9f9bb629fd7a66d8ead65154057b
@@ -0,0 +1,55 @@
+HTTP/1.1 200 OK
+Connection: close
+Date: Mon, 03 Aug 2015 17:48:27 GMT
+Server: nginx
+Content-Length: 778
+Content-Type: application/json
+Access-Control-Allow-Credentials: true
+Access-Control-Allow-Methods: GET, POST, HEAD, OPTIONS, DELETE
+Access-Control-Allow-Origin: *
+Access-Control-Max-Age: 300
+Client-Response-Num: 1
+Client-SSL-Cert-Issuer: /C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert High Assurance EV CA-1
+Client-SSL-Cert-Subject: /businessCategory=Private Organization/jurisdictionC=US/jurisdictionST=Delaware/serialNumber=4675506/street=3180 18th St., Suite 100/postalCode=94110/C=US/ST=California/L=San Francisco/O=Stripe, Inc/CN=api.stripe.com
+Client-SSL-Cipher: ECDHE-RSA-AES128-SHA256
+Client-SSL-Socket-Class: IO::Socket::SSL
+Request-Id: req_6jFY7EJcfuJb4A
+Strict-Transport-Security: max-age=31556926; includeSubDomains
+Stripe-Version: 2014-12-17
+
+{
+  "object": "customer",
+  "created": 1438624106,
+  "id": "cus_6jFYUBdqFZzdvP",
+  "livemode": false,
+  "description": "bar",
+  "email": null,
+  "delinquent": false,
+  "metadata": {},
+  "subscriptions": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/subscriptions",
+    "data": []
+  },
+  "discount": null,
+  "account_balance": 0,
+  "currency": null,
+  "cards": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/cards",
+    "data": []
+  },
+  "default_card": null,
+  "sources": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/sources",
+    "data": []
+  },
+  "default_source": null
+}
diff --git a/t/LWPCache/01-customers.t/08970ca99a287985a0a0785b2dd3c163 b/t/LWPCache/01-customers.t/08970ca99a287985a0a0785b2dd3c163
@@ -0,0 +1,55 @@
+HTTP/1.1 200 OK
+Connection: close
+Date: Mon, 03 Aug 2015 17:48:26 GMT
+Server: nginx
+Content-Length: 778
+Content-Type: application/json
+Access-Control-Allow-Credentials: true
+Access-Control-Allow-Methods: GET, POST, HEAD, OPTIONS, DELETE
+Access-Control-Allow-Origin: *
+Access-Control-Max-Age: 300
+Client-Response-Num: 1
+Client-SSL-Cert-Issuer: /C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert High Assurance EV CA-1
+Client-SSL-Cert-Subject: /businessCategory=Private Organization/jurisdictionC=US/jurisdictionST=Delaware/serialNumber=4675506/street=3180 18th St., Suite 100/postalCode=94110/C=US/ST=California/L=San Francisco/O=Stripe, Inc/CN=api.stripe.com
+Client-SSL-Cipher: ECDHE-RSA-AES128-SHA256
+Client-SSL-Socket-Class: IO::Socket::SSL
+Request-Id: req_6jFYNvEM2VYX3Z
+Strict-Transport-Security: max-age=31556926; includeSubDomains
+Stripe-Version: 2014-12-17
+
+{
+  "object": "customer",
+  "created": 1438624105,
+  "id": "cus_6jFYBb9leEs9bR",
+  "livemode": false,
+  "description": "foo",
+  "email": null,
+  "delinquent": false,
+  "metadata": {},
+  "subscriptions": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYBb9leEs9bR/subscriptions",
+    "data": []
+  },
+  "discount": null,
+  "account_balance": 0,
+  "currency": null,
+  "cards": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYBb9leEs9bR/cards",
+    "data": []
+  },
+  "default_card": null,
+  "sources": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYBb9leEs9bR/sources",
+    "data": []
+  },
+  "default_source": null
+}
diff --git a/t/LWPCache/01-customers.t/6aabc3f2ec770152fb84b8782565dc80 b/t/LWPCache/01-customers.t/6aabc3f2ec770152fb84b8782565dc80
@@ -0,0 +1,55 @@
+HTTP/1.1 200 OK
+Connection: close
+Date: Mon, 03 Aug 2015 17:48:27 GMT
+Server: nginx
+Content-Length: 778
+Content-Type: application/json
+Access-Control-Allow-Credentials: true
+Access-Control-Allow-Methods: GET, POST, HEAD, OPTIONS, DELETE
+Access-Control-Allow-Origin: *
+Access-Control-Max-Age: 300
+Client-Response-Num: 1
+Client-SSL-Cert-Issuer: /C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert High Assurance EV CA-1
+Client-SSL-Cert-Subject: /businessCategory=Private Organization/jurisdictionC=US/jurisdictionST=Delaware/serialNumber=4675506/street=3180 18th St., Suite 100/postalCode=94110/C=US/ST=California/L=San Francisco/O=Stripe, Inc/CN=api.stripe.com
+Client-SSL-Cipher: ECDHE-RSA-AES128-SHA256
+Client-SSL-Socket-Class: IO::Socket::SSL
+Request-Id: req_6jFYIfZVlj4o5h
+Strict-Transport-Security: max-age=31556926; includeSubDomains
+Stripe-Version: 2014-12-17
+
+{
+  "object": "customer",
+  "created": 1438624106,
+  "id": "cus_6jFYUBdqFZzdvP",
+  "livemode": false,
+  "description": "bar",
+  "email": null,
+  "delinquent": false,
+  "metadata": {},
+  "subscriptions": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/subscriptions",
+    "data": []
+  },
+  "discount": null,
+  "account_balance": 0,
+  "currency": null,
+  "cards": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/cards",
+    "data": []
+  },
+  "default_card": null,
+  "sources": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/sources",
+    "data": []
+  },
+  "default_source": null
+}
diff --git a/t/LWPCache/01-customers.t/b85456b23f22b306f0d340f81d7c0db2 b/t/LWPCache/01-customers.t/b85456b23f22b306f0d340f81d7c0db2
@@ -0,0 +1,55 @@
+HTTP/1.1 200 OK
+Connection: close
+Date: Mon, 03 Aug 2015 17:48:26 GMT
+Server: nginx
+Content-Length: 779
+Content-Type: application/json
+Access-Control-Allow-Credentials: true
+Access-Control-Allow-Methods: GET, POST, HEAD, OPTIONS, DELETE
+Access-Control-Allow-Origin: *
+Access-Control-Max-Age: 300
+Client-Response-Num: 1
+Client-SSL-Cert-Issuer: /C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert High Assurance EV CA-1
+Client-SSL-Cert-Subject: /businessCategory=Private Organization/jurisdictionC=US/jurisdictionST=Delaware/serialNumber=4675506/street=3180 18th St., Suite 100/postalCode=94110/C=US/ST=California/L=San Francisco/O=Stripe, Inc/CN=api.stripe.com
+Client-SSL-Cipher: ECDHE-RSA-AES128-SHA256
+Client-SSL-Socket-Class: IO::Socket::SSL
+Request-Id: req_6jFYP7k50Sn4Qs
+Strict-Transport-Security: max-age=31556926; includeSubDomains
+Stripe-Version: 2014-12-17
+
+{
+  "object": "customer",
+  "created": 1438624106,
+  "id": "cus_6jFYUBdqFZzdvP",
+  "livemode": false,
+  "description": "foo2",
+  "email": null,
+  "delinquent": false,
+  "metadata": {},
+  "subscriptions": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/subscriptions",
+    "data": []
+  },
+  "discount": null,
+  "account_balance": 0,
+  "currency": null,
+  "cards": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/cards",
+    "data": []
+  },
+  "default_card": null,
+  "sources": {
+    "object": "list",
+    "total_count": 0,
+    "has_more": false,
+    "url": "/v1/customers/cus_6jFYUBdqFZzdvP/sources",
+    "data": []
+  },
+  "default_source": null
+}