New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Crash while running test #6404
Comments
From @MARTIMMTest code erred in perl6 version 2017.07-31-g895bdc8 built on MoarVM Regards, The crash dump; *** Error in `/home/marcel/Software/perl6/rakudo/install/bin/moar': |
From @AlexDanielIs there any code snippet to reproduce it? The backtrace mentions mongo-perl6-driver… On 2017-07-22 02:38:03, mt1957@gmail.com wrote:
|
The RT System itself - Status changed from 'new' to 'open' |
From @MARTIMMOn 07/22/2017 12:03 PM, Aleks-Daniel Jakimenko-Aleksejev via RT wrote:
... The difficulty is that it crashed once but it didn't after repeated |
From @MARTIMMuse v6; use lib 't'; use Test; use MongoDB; #------------------------------------------------------------------------------- my MongoDB::Test-support $ts .= new; my MongoDB::Client $client = $ts.get-connection; #------------------------------------------------------------------------------ $database.run-command: (dropDatabase => 1,); # Insert many documents to see proper working of get-more docs request for ^200 -> $i { $req .= new: ( $doc = $database.run-command($req); is $doc<ok>, 1, 'insert ok'; # Request to get all documents listed to generate a get-more request $doc = $cursor.fetch; #------------------------------------------------------------------------------ check-document( check-document( check-document( #------------------------------------------------------------------------------ $req .= new: ( count => $collection.name); $req<query> = ( code => 'd1', test_record => 'tr3'); $req<query> = (); $req<query> = (); #------------------------------------------------------------------------------- # The server needs to scan through all documents to see if the query matches $doc = $database.run-command($req); # Now set an index on the field and the scan goes only through one document is $doc<createdCollectionAutomatically>, False, 'Not created automatically'; $doc = $database.run-command($req); #------------------------------------------------------------------------------- # Give a bad hint and get explaination(another possibility from above $doc = $cursor.fetch; # Give a good hint and get explaination(another possibility from above $doc = $cursor.fetch; #------------------------------------------------------------------------------- $cursor.kill; # Is this ok (No fifty because of test with explain on cursor???? is $doc<n>, 1, 'Counting 1 document on search'; #------------------------------------------------------------------------------- #------------------------------------------------------------------------------- for $collection.find( :$criteria, :$projection) -> BSON::Document $document { else { last; |
Migrated from rt.perl.org#131780 (status was 'open')
Searchable as RT131780$
The text was updated successfully, but these errors were encountered: