[svn:parrot] r42861 - branches/cs_csr_merge/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Dec  2 12:56:38 2009
New Revision: 42861
URL: https://trac.parrot.org/parrot/changeset/42861

Log:
Remove test for CallSignatureReturns

Deleted:
   branches/cs_csr_merge/t/pmc/callsignaturereturns.t

Deleted: branches/cs_csr_merge/t/pmc/callsignaturereturns.t
==============================================================================
--- branches/cs_csr_merge/t/pmc/callsignaturereturns.t	Wed Dec  2 12:56:38 2009	(r42860)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,53 +0,0 @@
-#! parrot
-# Copyright (C) 2009, Parrot Foundation.
-# $Id$
-
-=head1 NAME
-
-t/pmc/callsignaturereturns.t - test CallSignatureReturns PMC
-
-=head1 SYNOPSIS
-
-    % prove t/pmc/callsignaturereturns.t
-
-=head1 DESCRIPTION
-
-Tests the CallSignatureReturns PMC.
-
-=cut
-
-.sub main :main
-    .include 'test_more.pir'
-
-    plan(2)
-
-    instantiate()
-    switch_storage()
-.end
-
-
-.sub instantiate
-    $P0 = new ['CallSignatureReturns']
-    ok(1, 'Instantiated CallSignatureReturns')
-.end
-
-# Check that internal switching of storage works.
-.sub switch_storage
-    .local pmc r
-    (r :slurpy) = 'return_many'()
-    sweep 1
-    $S0 = join '', r
-    is($S0, "This is very long string to return as characters", "Internal storage switched")
-.end
-
-.sub return_many
-    .local pmc res
-    res = split '', "This is very long string to return as characters"
-    .return (res :flat)
-.end
-
-# Local Variables:
-#   mode: pir
-#   fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir: